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Use the brains your Commodore 
Wasnt born With. 



Right at your fingertips 
in CompuServe's 
Commodore Forums. 

Our Commodore Forums involve 
thousands of Commodore users 
worldwide. These forums show you 
just how easy it is to get the most 
from your Commodore computer. 

The Commodore Arts and Games 
Forum is for all Commodore 8-bit 
computers, concentrating on music, 
graphics, and games. The Commo- 
dore Communications Forum has 
updates of communications soft- 
ware. The Commodore Programming 
Forum supports programmers and 
developers of Commodore 8-bit 
computers. And the Amiga s Forum 
serves as the national resource 
for all business and entertain- 
ment applications in the Amiga 
community. 



Easy access to free software, 
including free uploads. 

You can easily download first-rate, 
non-commercial software and utility 
programs. Upload your own pro- 
grams free of connect time charges. 
And take advantage of CompuServe's 
inexpensive weeknight and weekend 
rates, when forums are most active 
and standard online charges are 
just IOC a minute. You can go online 
in most areas with a local phone call. 
Plus, you'll receive a $25.00 
Introductory Usage Credit when 
you purchase your CompuServe 
Subscription Kit. 

Information you just can't find 
anywhere else. 

Use the Forum Message Board to 
exchange mail with fellow members. 
Join ongoing, real-time discussions in 
a Forum Conference or communicate 
with industry experts. Scan Forum 
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Data Libraries for non-commercial 
software. Enjoy other useful 
services too, like electronic editions 
of popular computer magazines. 

All you need is your Commodore 
computer (or almost any other per- 
sonal computer) and a modem. 

To buy your Subscription Kit, 
see your nearest computer dealer. 
Suggested retail price is $39.95. 
To receive our free brochure, or to 
order direct, call 800-848-8199 (in 
Ohio and Canada, call 614-457-0802). 
If you're already a CompuServe sub- 
scriber, type GO CBMNET (Commo- 
dore Users Network) at any ! prompt 
to see what you've been missing. 

CompuServe* 

informal ion Services. PO. Box 20212 

5000 Arlington Centre Blvd., Columbus. Ohio 43220 

800-848-8199 

In OtHO. call 614-457 0802 

An HSR Bloc* Company 
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TO ORDER 

CALL TOLL FREE 

1-80O-233-8760 

in PA 

(717)494-1030 

or send to 

Lyco Computer 

P.O. Box 5088 

Jersey Shore. PA 17740 

CUSTOMER SERVICE 

(717)494-1670 

Mon. - Fri. 9AM - 5PM 
RISK FREE POLICY 

In-stock items shipped within 24 
hrs. of order No deposit on C.O.D. 
orders. Free shipping on prepaid 
cash orders within the continental 
U.S. Volume discounts available 
PA residents add sales tax APO. 
FPO and international orders add 
35.00 plus 3% for priority mail. Ad- 
vertised prices show 4% discounl 
for cash, add 4% (or Master Card 
and VISA. Personal checks require 
4 weeks clearance belore shipping 
We cannot guarantee compatibility. 
We only shipfaclory fresh merchan- 
dise. Ask about UPS Blue and red 
label shipping All merchandise ear- 
ned under manufacturer's warrant/. 
Return restriction applicable. Return 
authorization required. All items sub- 
ject to change without notice 
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• Commodore 64c 
Computer <£ vl QQ 

• 1541C Drive *J> £ r53i? 

• 1802 Monitor 

(90 DAY WARRANTY) 
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Portal 
Titanic 
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WE STOCK OVER 5000 SOFTWARE TITLES! 

Commodore prices shown, other systems simutar. C>ill for availability. 
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S659 with Monitor 
I ictioice a! green or amber) 
* 512 RAM 
360K Drive 



" ' 100% 
IBM 
^Compatible 
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COMMODORE COMMODORE 

P£»-HS599(PCl|@"i$699 

FULL MANUFACTURERS WARRANIY' 



1-800-235-8760 
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• 120 cps Draft Mode 

• 24 cps NLQ $179 

• Friction Feed 
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Lyco Computer is one of the oldest and most 
established computer suppliers in America. 
Because we are dedicated to satisfying every 
customer, we have earned our reputation as 
the best in the business. And, our six years of 
experience in computer marketing is your 
assurance of knowledgeable service and 
quality merchandise. 



SAVE on these PRINTERS! 



INTERFACING 

CARDCO 

G-WIZ S39 95 

Super G $49 95 

XETEC 
Super Graph* iC64)Bk m.i ■<■■ 

Kuij.t Graohl* Jr |C64I 539 95 

OS I 
pp| S44 95 
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1091 

1092 

1592. 

1S9S. 

3131. 

3151 . 




NP-10 



$129 
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• 100 cps Draft Mode 

• 25 cps NLQ 

• Standard Parallel Interface 

• 1-year Warranty 



EPSON 

LX36 3CALL 

EX-800 $389 

EX-1000 S519 

LQ-800 $«9 

LQ-1000 S649 

FX-2B60 5459 

FX-866 S329 

CITIZEN 

120-D S179 

MSP-10 S285 

MSP-15 $386 

MSP-20 S325 

MSP-25 $485 

Premiei 35 S469 

Tribute 224 $649 
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Okimato 20 S129 

Plug n Pnnl SCALL 

120 NLO S209 

182 $245 

192+ 3365 

193+ $559 

292w/in!etlace $539 

293 wf interface ...... 5679 

TOSHIBA 

321 PIS 

35 1 sheei 'eeder , 

34i£ 

P351 mnrtol ? . . . 



STAR MICR0NICS 

.517J NX-10 $195 

,$249 NX- 10C $'99 

.$319 NL-10 .....KDS 

.S389 SP-tO S399 

.$449 SD-10 ...S249 

.$359 NB-15 5799 

.5399 ND-15 $525 

NX-15 5329 

NR-15 $499 

NB24-15 SF.29 

NB24-10 $419 

NU 10 .5329 

SILVER REED 

EXP420P S?09 

i'XP600P $533 

EXP 800 P $649 

LEGEND 

80S S'79 

1030 $199 

1380 5229 

1385. 5289 

DIABLO 

D25 $499 

635 5779 

D-80 IF 51029 

SEIKOSHA 

SP-1200AS 5195 

SP-1200 Al 5195 

BP-5420 $1075 

MP-5300 Al S549 

Color Kit 5119 

■ $'"S MP-1300 Al $369 

■ ■»« SL-80 Al 5375 

. .S6S9 SP-180VC $145 

. $1099 SP-1B0 Al $145 



5'. 3.5 

S9 99 SI6.9S 
$12 99 S23.99 



D MAXELL 

SSDI ' 
1 DSOD 
S BONUS 
K SSDP 

* uson 

r skc 

t SSI N I 

m;:i:j 
T DStlll 
e VERBATIM 

ssnn 
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Call for generic diskette pricing 
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SB.99 
S7 SO 



SB, 50 S14.99 
S9 50 S16. 99 



SIS 99 



59 99 116.99 

S1299 524 99 



SEIKOSHA 
SP-1000VC 




$145 ■" 

Guaranteed Lowest Price! 
100 cps Draft Mode 
20 cps NLQ 

Direct Connect C-64/128 
2-year Warranty 



DRIVES 

INDUS 

GT iC64| 

BLUE CHIP 

5,28 Drive |C64l 
i2H Owe 

MODEMS 

051 
Messeng&r 

AVATEX 



MONITORS 



S)79 TEKNIKA 

MJ-305 S309 

.... MJ-503 SS29 

:■ 1 ■. ' 

SI 1 !*"! 

ZENITH 

IVM 1220 AmhW $89 

S34 95 ?VM 1 ?30 Green SB9 



1200 
1200 li( 



£89 93 

wilh cable 
purchase 
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4 1 ?o ncu Composhie . 




commodore 
Ol28r 
PACKAGE 
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• Commodore C-1 28 Computer 

• 1571 Disk Drive 

• Thomson 4120 Monitor Full warranty applies 



commodore 

HARDWARE 

C128 Computer ... $249 1802 Monitor S185 

1571 Drive... S229 C1 700 RAM S109 

1902 Monitor S285 CI 750 RAM S169 

64C Computer S175 C1351 Mouse £39 

1541C Drive S185 1670 Modern. call 



HOURS 

Mon - Thurs 9AM-8PM 

Fri 9AM-6PM 

Sat 10AM-6PM 
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Take a Quiet Drive 
in the Fast Lane. 




Introducing the New 

FSD-2 

Excelerator+Plus 

Commodore Compatible Disk Drive 

Faster, quieter and more reliable than the 1541 and 1541 C. 

Breakthrough Direct Drive technology. 

Guaranteed 100% Compatibility. It even enhances GEOS! 

Full One-Year Warranty. 

Distributed by: First America Distributing, Inc. 
Palmer Lake Plaza Bldg. 
6S60 Shingle Creek Parkway 
Brooklyn Center, MINN. 55430 

Manufactured by: E^^I Emerald Components International 541 Willamolto Eugene, OR 97401 Fax:503-345-5037 Telex: 23-499-6100 EUG SECSVC 
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c'rc probably the only magazine in North 
America thai hasn't featured Vanna White 
on its cover. While this situation is not 
likely to be remedied soon, we do have 
good news for fans of that talented letter-turner- as well 
as for longtime readers who constantly ask, whatever hap- 
pened to Bob Lloret? 

The author of Post Time, Space Patrol, and others among 
the most popular programs of our early issues graces the 
reverse side of this month's Ahoy! Disk with fortune Wheel 
This is the most realistic simulation we've seen of the TV 
show of almost the same name -right down to the dumb 
blonde! (Er— we meant, Vanna lovers, that she doesn't say 
much on the show.) If you don't get the Ahoy! Disk, see 
the ad on page 30. 

But for our 52.95, the most exciting news this month 
is right between these covers: 

• Tony Brantner's Steeplechase and James C. H ilty's Bat- 
ter Up! offer the kind of graphics we consider ourselves 
fortunate to be able to present to you once per issue. Both 
are included in this issue. We won't say another word — 
the screen shots we've printed say everything! (Turn to 
pages 15 and 31.) 

•We know how you hate to type. So before we publish 
a program that's over five pages in length, we ask ourselves: 
is this going to be worth it? And in 
the case of Cleve Blakcmore's extend- 
ed efforts, the answer is usually yes. 
It certainly is in the case of Archer, 
a multilevel tribute to the arcade mi- 
lestone called Venture. (Turn to page 
60.) 

•We've run the gamut with banner 
generators for the 64, from Bob 
Spirko's mammoth Streamer Font (Jan. 
'86) to Curtis Kaylor's 18-line Banner 
(March '86). Now Banner Print by 
Mike Hoyt lets people who like to 
print sideways take advantage of the 
Commodore 12S"s special features. 
(Turn to page 22.) 
•Because we strive to be to program- 
ming what the Mobil Guide is to trav- 
eling. Route 64 seemed like an appro- 
priate title for Buck Childress' latest 
utility. It facilitates line referencing by 
replacing calls to line numbers with 
labels. (Turn to page 13.) 

• Encouraged by the fact that no read- 
ers called in to report fatal electrocu- 
tions sustained from the hardware con- 
struction detailed in last month's 
Rupert Report, Dale has gone ahead 
with an even more ambitious project. 
This issue's Green Screen Blues will 
allow C-128 users to set up an elec- 
tronic relay for switching a video mon- 



itor from 40 to 80 column mode. (Turn to page 32.) 
•While it doesn't incorporate the assembly/disassembly 
capabilities of full-blown machine language monitors. 
Scanner will allow you to view the contents of any memory 
location in binary, hex. and ASCII. (Turn to page 25.) 
•Because science Fiction themes account for such a large 
segment of the computer game arena. Arnic Katz and Bill 
Kunkel couldn't cover all the current otherworldly enter- 
tain merit in a single article. In June they surveyed sci-fi 
strategy games; this month they provide Action in Outer 
Space, reviewing Uridium, Parallax, and Starglider. (Turn 
to page 41,) 

•If you shun our COMAL Column because you have no 
interest in learning the language, you're making a mistake. 
Not just because of COMAL's many strong points, but be- 
cause Richard Herring manages each month to teach as 
much about programming languages in general as he does 
about COMAL in particular. This month he makes a case 
for 'Hie Death of GOTO. (Turn to page 69.) 

Sharp-eyed readers will have noted a slight change in 
the address we print at various places around the 
magazine — from Suite 407 to Suite 500. Please use the cor- 
rect suite number when you write. And when you're in 
New York, please stop in (as many of you do). We'd love 
to meet vou — and show off our new office!— David Allikas 



Super Graphix 




Includes: 

Utility Disk 

With 

27 Fonts 

And 

Font 

Creator 



GRAPHICS and FONTS plus an SK BUFFER for the ultimate in performance and 
speed. The XETEC Super Graphix interface for Commodore Computers now 
offers a new high In technology with these features: 

• 8K Buffer Standard • Capable of Storing 2 Additional Fonts 

• 10 Printing Modes • Correct Graphics/Text Aspect Ratio for 

• 3 Internal Screen Dumps all Major Printers 

• Extensive Command Channel * 8 Active Switches with Changes 

• Reset Button to Halt Printing Constantly Monitored 
Irom Buffer * ln,erflal F ° n ts Support Super-script, 
_ ,. . _ ,, ., Sub-script Underlining. Bold-face and 

• Switch Settings on Label lor J g 

Quick Reference 

• Correspondence Quality Font Built-in 

Suggested list $99.95 • Includes Lifetime Warranty 
X1P1SO, Inc. I 2804 Arnold Rd. / Sallna, KS 67401 / 913-827-0685 
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PORTABLE MODEM • MUSIC APPRECIATION DISKS • ENHANCED 
FORTRAN • WWCf RECOGNITION SOFTWARE • 4AWG4 a/P 4/?F • 
GAAffS /TOM MICROPROSE f SSI, COSMI, EPYX • CP/AJ C4M£0(? • 
4AJ/G4 CONFERENCES • GUITAR TUTOR • LOTTO PROGRAM • MNMK5 



NEW COMMODORE CEO 

Commodore has survived so many 
crises that nothing worries us anymore. 
Not even the loss of chief executive of- 
ficer Thomas J. Rattigan, head of the 
management team that put the company 
back in the black after the closest brush 
with bankruptcy in its history. As peo- 
ple who read the financial section know , 
Rattigan was forced to resign in late 
April following an unsuccessful pow- 
er struggle with chairman and chief 
stockholder Irving Gould. The crux of 
their disagreement was a difference of 
opinion on how Commodore US oper- 
ations should be run, though a clash 
of personalities also played a role. 

The Wall Street Journal predicted 
that the shakeup would continue in the 
tbrm of job cuts, eliminating up to 40% 
of Commodore's 200 administmtive po- 
sitions. And this move, the Journal 
speculated, could complicate Commo- 
dore's relationship with the banks to 
which it remains in debt, at a time 
when the company is reportedly trying 
to raise financing through a debenture 
offering due to its banks' refusal to put 
up more money. 

Complicate the relationship it cer- 
tainly will. But blow it apart? We don't 
think so. Commodore has come back 
fmm too much worse to be derailed by 
a little executive head-axing, or reac- 
tion to same. The company is on a roll 
-if that fact is not evident to their pres- 
ent banks, it will be to other funding 
sources. Especially when the Amiga 
500 starts selling like Donna Rice but- 
tons at a Republican Convention. 

Commodore International, 215-931- 
4100 (see address list, page 12). 

STRING FUNCTIONS 

Guitar Wizard ($24.95) helps guitar- 
ists learn and analyze the fingerings and 
fretboard patterns for all types of 

8 AHOY! 




For all types of fretted instruments. 
READER SERVICE NO. 163 

chords and scales at different positions 
on the neck. Notes and positions are 
shown in graphic displays that can be 
viewed onscreen or printed out. The 
program can be used with all types of 
fretted instruments in both standard and 
non-standard tunings. 
Baudville (see address list, page 12). 

PICK A WINNER 

Of course, you and we know that 
there's no valid method for predicting 
winning lottery numbers. But gamb- 
lers are a superstitious lot. And for 
them, The Lotto Program (S24.95) will 
analyze past winning numbers to pre- 
dict what numbers are likely to come 
up in the next few drawings. Usable 
with all 6 and 7 number games, the 
program produces charts from which 
you can extract hot and cold numbers, 
frequency, panerns, sums of digits, dig- 
it groups, and more. Because you pick 
your own numbers from the data gen- 
erated, your selections won't match 



those of other owners. For the 64. 

Soft-Byte, 513-278-8044 (see address 
list, page 12). 

CP/M SOFTWARE DISKS 

Poseidon Electronics' spring/summer 
catalog of public domain CP/M soft- 
ware is now available. Price of the cat- 
alog is $2.00 plus .73 postage; the soft- 
ware costs $16 per disk. Please note, 
however, that the company will be 
closed for July and August. 

Poseidon requests that any custom- 
ers who have not received mailings re- 
cently contact them, as 50 names were 
recently lost from their database, 

Poseidon Electronics (sec address 
list, page 12). 

BOOK RELEASES 

Becoming an Amiga Artist ($19.95) 
tutors beginning and advanced users on 
the creation of charts, graphs, paint- 
ings, tech drawings, digitized images, 
animation, sound, and speech. Covered 
topics include programming in Ami- 
ga BASIC, reproducing screens on 
printers, VCRs, and plotters, and work- 
ing with digitizers, genlock devices, 
and MIDI interfaces. 

Scott, Foresman and Company, 312- 
729-3000 (see address list, page 12). 

The following from Prentice Hall; 

Tli e Brady Manual of Spreadsheet 
Style ($12.95) gives professional guide- 
lines for creating spreadsheets and de- 
veloping habits that make spreadsheet 
analyses faster and more reliable. 

'/lie Master Guide to CompuSerw 
(519.95) saves the user time and money 
that would otherwise be wasted experi- 
menting online by outlining fast meth- 
ods of finding desired information. The 
overall structure of CompuServe is ex- 
amined, along with features for sophis- 
ticated applications and search and re- 
trieval skills. 



"SOMETHING TO BYTE INTO 



ABACUS 

Basic 12B $38,95 

Basic 64 2575 

Cadpak 128 38.95 

Cadpak64 25 95 

Chartpak 128 25.95 

Chartpak 64 25.95 

COM 6* 25.95 

Cobol 128 37.95 

Speed Term , 25.95 

Super C Compiler 64/128 38.95 

Super Pascal 48.95 

BRDDERBUNO 

Where in the World 

is Carmen Sandiago £21 ,95 

P/S Library 1-2-3ea 15.95 

Print Shop 26.95 

Print Shop Companion 21.95 

Toy Shop..... 39.95 

P/S Holiday Library 15.95 

MICRO-LEAGUE 

Box Score/Stal Compiler $16.95 

General Manager Disk 24,95 

Micro League Baseball 24.95 

Team Disks 16.95 

RIBBON 



(Min. 6 per order) 


Axiom Elite 5 LCD 


...$ 5.95 


Brother 15, 25, 35 


... 5.95 


Commodore 1525 


... 6.95 


Commodore 1526 


... 6.95 


Epson 185 


... 6.95 


Epson 85 


... 4,95 


Epson mx. fx, rx 100 


... 6,95 


Epson mx.lx.rx 80 


. . . 4.95 


Gorilla Banana 


. . . 6,95 


Juki 6000 


. . . 4.95 


Juki 6100 


... 3,95 


Legend 880. 1080, 806. 
MPS 801 


... 6.95 


,.. 6.95 


MPS 803 


... 6.95 


OKI 182.192 


. . . 7.95 


OKI 82, 92, 83, 93 


... 2.25 


SG 10-15 


... 2,25 


Panasonic 1081, 1091.. 


... 8,95 


1HF0C0M 


Enchanter 21.95 


Hitchhiker's Guide 21 .95 


Hollywood Hijinx 21.95 


Invisiclues ea 6. GO 


Leather Goddesses 


otPhobos 21.95 


Spellbreaker 26,95 


Trinity 128 24,95 


Zcrk 1-2-3 ea 25.95 


Sorcerer 24.95 


DATAEAST 


Commando $21.95 


Karate Champ 21.95 


Kung Fu Master. 21.95 


Tag Team Wrestling 21 .95 


GAMESTAR 


Baseball $21.95 


Basketball 2 on 2 21.95 


Foolball 21.95 



PRECISION 

Superbase 128 $56.95 

Superbase 64. 46.95 

Superscript 128. 47.95 

Superscript 64 46,95 

TIMEWDRKS 

Data Manager 128 $42.95 

Data Manager II 29.95 

Partner 128 42.95 

Swift Calc 128 w/Sideways., 42.95 

Switl Calc 64 w/Sideways... 29.95 

Word Writer 128 w/Speller... 42.95 

Word Writer 3 w/Speller 29.95 

Partner 641 38.95 

DIGITAL SOLUTIONS 

Pocket Writer II 41.95 

Super Pak 64 .....34.95 

Super Pak 128 44.95 

MICROPROSE 

Conllicl in Vietnam 24,95 

Crusade in Europe 24.95 

F-15 Sirike Eagle 21.95 

Gunship 21.95 

Silent Service 21.95 

Top Gunner 18.95 

SPRINGBOAHD 

Certificate Maker $29.95 

Clip Art 1 20.95 

Clip Arill 24.95 

Clip An III , 24.95 

Newsroom 29.95 

Graphic Expander 21.95 

Certificate Malcerll 21.95 

ACCESS 

Leader Board $24.95 

L.B. Tournament Disk 14.95 

Mach 128 30.95 

Mach 5 21.95 

10th Frame,... 24.95 

Triple Pack. 14.95 

World Class Leader Board .... 25.95 



HOT SELLERS 

Commando S21 

Fist II 19 

Gato 19 

Ghosts-n-Goblins 19 

Kung Fu II 19 

Parallax 19 

Power 12 

Rush -n -Attack & 

Yie Ar Kung Fu 19 

Slar Fleet 1 29 

Sirike Force Cobra 13 

Tag Team Wresiling 21 

Ucftl Mata 19 

Uridium 19 

X-15 Alpha Mission 19 

AVALDN HILL 

Superbowl Sunday $19.95 

S.B. Sunday Stal Compiler... 16.95 
Team Disk 12.95 



i 
i 

95 I 
95 
95 i 
95 j 
95 
95 i 
95 j 

95! 
95j 
95 
95 I 
.95 J 
95 
95 1 
.-J 



DATASOFT 

Alternate Reality $24.95 

Black Magic , 16.95 

Crosscheck 19.95 

Goonies 18.95 

Mercenary 18.95 

Mind Pursuit 18.95 

Never Ending Story 18.95 

Gunslinger 19.95 

22 IB Baker St 19.95 

Theatre Europe 21.95 



ACCESSORIES 




A1CP Disks (12) 


$ 7.95 


Commodore 1351 mouse, 


. 45.95 


Commodore 1670 modem 


.135.95 


Disk Nolcher. 


. 5.95 


Disk Storage Case (70). . 


. 8.95 


Drive Cleaner 


. 7.95 


Ftexidraw Light Pen 

Messenger Modem 


. 74.95 


. 35.95 


WICO Boss Joystick.., . 


. 11.50 


WICQ Bat Handle 




Joystick 

WICO Three Way 


. 15.50 




Joystick 


. 18.95 


Xetek Graphic Interlace . . 


. 54,95 


Xetek Graphic Jr 


. 34.95 



ELA 

America's Cup £22.95 

Amc Fox 22.95 

Auto Duel 34.95 

Bard's Tale 24.95 

Bard's Tale II 27.95 

Chessmaster 2000 26.95 

Lords ot Conquest 24.95 

Marble Madness 21.95 

Mind Mirror 21.95 

Moebius 26.95 

Movie Maker 24.95 

Murder Party 29,95 

Orge 26.95 

Quizam 21.95 

Scrabble 22.95 

Ultima I 28.95 

Ultima IV 39.95 

Ultimate Wizard 22.95 

MINDSCAPE 

Bop and Wrestle $18.95 

Fairlighl 1B.95 

High Roller 18.95 

Indoor Sports 18.95 

Infiltrator 18.95 

Lords ol Midnight... 17.95 

BERKELEY SOFTWARE 

GEOS $36.95 

GEOS Fontpak 1 18.95 

GEOS Desk Pack..... 22.95 

Geodex 24.95 

Writer Work Shop 31.95 

SOLID STATE SOFTWARE 

VlzaStar 128.. ., $69.95 

VizaWrite 128 59.95 



ACCOLADE 

Dambuslers $18.95 

Fight Night 1B.95 

Hard Ball 18.95 

Law ollhe West 18.95 

PSI 5 Trading Comp 18.95 

Kill Until Dead 18.95 

Ace ol Aces 18.95 

Deceptor 12.95 

Comics 18.95 

ACT1VISI0N 

Aliens $21.95 

Alter Ego 29.95 

Cross Country Road Race 19.95 

Gamemaker 24.95 

Gamemaker Sci/Fiction 14.95 

Gamemaker Sports 14,95 

Hacker ll 21.95 

Labyrinth 21.95 

Mindshadow 19.95 

Murderon the Mississippi. .. . 21.95 

Music Studio 21.95 

Rocky Horrow Show IB. 95 

Shanghai 21.95 

Tass Times In Tonetown 21.95 

Tilanic 15.95 

Transformers 21.95 

EPYX 

Fast Load $23,95 

Multiplan 64/128 29.95 

Programmers Toll Kit 27.95 

Vorpal 21.95 

World Karate 

Championship 18.95 

World's Greatest 

Baseball 23.95 

Super Cycle 24.95 

World Games 24.95 

World's Greatest 

Football 24.95 

Movie Monster 24.95 

Championship 

Wrestling, 24.95 

Oeslroyer 24.95 

Winler Games 23.95 

FIREBIRD 

Elite $19.95 

Colossus Chess-IV 21.95 

Music Systems 24.95 

Advance Music Systems. ... . 49.95 

The Pawn 28.95 

StarGiider 24.95 

Tracker , 24.95 

SSI 

Battle ol Aniietam $29.95 

Carrier Force 36.95 

Phanlasle II 24.95 

Rings ol Zelphin 24.95 

Wizard's Crown 24.95 

Roadwar 2000 24.95 

SUBLOGIC 

Flight Sim II $34.95 

Football 27,95 

Jet 27.95 

Pure Stal Baseball 34.95 

Scenery Disk 1-6 ea 14.95 

Scenery Disk # 7 14,95 

Stadium Disk (baseball) 14,95 

Up Periscope 18.95 



Orders 



Customer Service 

718-351-1864 

10AM to 6PM 

E.S.T. 



CALL DS TOIL FREE 

■ 1-800-634-AICP Only 




COMPUTER PRODUCTS 

P.O. Bo< 175B 
Stalen Island, N.Y. 10314 

Reader Service No. 132 
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In stock Itens St,(pp*0 within 24 hours for prepaid orders (can. Check, visa, 
mc) C C Orders iccpete-tf. please add 14 DO. musl be cash or cert, cfletk 
ONLY. NY5 resteers add SV-tt sales la*. Advertised prices reliecl a 4% dis- 
counl fa* cash, crerjit card add 4%, All orders add 13. 5Q shipping and handling 
wilhing (he Conllnental U.S. Personal checks allow 2 wfc. For clearance. 
Aviilaa.iity and pricing subject to Changs witnoul notice. Fret shipping n Con- 
llnental U.S. on sorter* orders Over 1150.00. DEFECTIVE EXCHANGE ONLY 
FOR SAME PRODUCT Restocking lee on unopened no defective hems relumed. 
Returns accepled wrihm 15 days of shipping dale only. *J returns require 
Return Authorization numbers. WE DO HOT GUARANTEE COMPATIBILITY. 



WHAT DO THEY SAY? 



"If languages interest you, 
this one is well worth a look 
... You may find that it's just 
what you have been looking 
for." - Jim Butter field, 
COMPUTE! magazine 



"COMAL was just what I was 
looking for" - Colin 
Thompson, RUN magazine 



"I don't have enough space to 
list all the good points.'" - 
No! and Brown, Midnite 
Software Gazette 



"I can recommend a better, 
faster, and cheaper 
programming language ... 
COMAL, the most user 
friendly language around." - 
Mark Brown, INFO magazine 



"Combines some of the best 
features of languages like 
Logo, Modula. Pascal, and Ada 
in an easy to use format." - 
Ahoy magazine 



"COMAL seems to be bringing 
back an interest in 
programming," - G Stafford 



Find out for yourself. Just 
send us a 39 cent stamped 
self addressed envelope. We'll 
send you our 24 page COMAL 
information booklet. 

COMAL is available for the 
C64, C128, CP/M, and IBM PC. 
Coming soon for Amiga. 
Macintosh, and Apple II, 

COMAL Users Group USA Ltd 
6041 Monona Drive, Room 111 
Madison, WI 53716 
phone: (608) 222-4432 
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Prentice Hall Press (see address list, 
page 12). 

Tlw Bard's Tale 1! Hint Book ($10.00) 
contains all 25 dungeon levels plus city 
maps, and reference sheets for mon- 
sters, magical items, and weapons. 

Elkon Enterprises, 817-692-2781 (see 
address list, page 12). 

PORTABLE MODEM 

The pocket-sized Practical Modem 
1200 SA Mini ($199). which retains all 
the features of Practical Peripherals' 
full-sized, Hayes-compatible Modem 
1200, will plug into your 64 or 128 via 
an RS232-C interface. The battcry-op- 



tistks) and beginner's articles on top- 
ics like computer cleaning, vocabulary, 
and the like. 

They've also got a regular feature 
called First Time Tales, each month 
profiling a different user's humorous 
maiden voyage into the field of micro- 
computing. And that's the main reason 
we're mentioning the newsletter in 
Scuttlebutt. In the time since Ahoy! de- 
buted nearly (bur years ago, at least two 
thirds of the people who've bought mi- 
enx:omputers have tried to sell us a hu- 
morous account of their maiden voy- 
age into the field of microcomputing. 
Well, look— there's now somebody soii- 




Mi/ii modem with 1200 or 300 bps rate and auto dial/auto answer capabilities. 
READER SERVICE NO. 162 



erated portable has a menu-driven con- 
figuration (no switches to set) and will 
store and autodial 10 phone numbers. 
Practical Peripherals, 818-991-8200 
(see address list, page 12). 

AMIGA CONVENTIONS 

A trio of three-day exhibition/confer- 
ences to be held in New York (Octo- 
ber), San Francisco (February), and 
Chicago (May), AmigaEXPO will 
serve Amiga owners, developers, and 
dealers with seminars, development 
forums, and new product displays. For 
more details, see the ad on page 55 of 
this issue. 

AmigaEXPO Headquarters (see ad- 
dress list, page 12), 

WOMEN'S NEWSLETTER 

Women Computing divides its 12 
monthly pages between female-orien- 
ted features (interviews with women 
executives, female v. male usage sta- 



citing these stories. So don't send them 
here anymore! 

A sample copy is available on re- 
quest; or, send $36 for 12 issues. 

Women Computing, 619-297-7094 
(sec address list, page 12). 

MORETRAN 

Pecan has enhanced its FORTRAN-77 
compiler for the Amiga ($99.95) to in- 
clude support for TYPE COMPLEX, 
the "ERR =" option, list-directed I/O, 
support for IEEE standard 2 and 4 
word real values, string subset and con- 
catenation routines, and more. 

Pecan Software Systems, Inc., 718- 
851-3100 (see address list, page 12). 

CURES LOCKJAW 

When teamed with Covox's Voice 
Master hardware, the memory-resident 
Voice Key voice recognition software 
allows C-64 users to utilize spoken 
rather than typed commands with their 



NEWS 



programs. Price of the disk and docu- 
mentation is S29.95. 

Covox Inc. , 503-342-1271 (sec ad- 
dress list, page 12). 

FURTHER STRIDERS 

More releases in the Strider's Com- 
puter Classics line of music apprecia- 
tion disks, each combining up to an 
hour of music with as many as 60 
screens of commentary on the compos- 
ers and their work: Viennese Sonatinas 
(Mozart), Music Antigua (1500's), 
Bach Favorites, and Sonatinas by Mu- 
zio Clementi. 

Free Spirit Software, Inc. , 312-352- 
7323 (see address list, page 12). 

AMIGA CLIP ART 

Two new clip art collections, each 
$29.95, for use with DeluxePaint II, 
DehvcePrim, and DeluxeVideo on the 
Amiga: 

Art Pans: Volume 2 comprises over 
125 images and brushes ranging from 
stars and planets to farm animals to hu- 
man faces. 

Seasons & Holidays has over 100 
images covering more than a dozen 
holidays and special occasions. 

Electronic Arts, 415-571-7171 (see ad- 
dress list, page 12). 

AMIGA SPELL CHECKING 

The LexCheck spelling checker 
($42.95) works with Textcrafi, Scrib- 
ble!, and Notepad formatted files, in 
addition to ASCII text files. The 
100,000-word master dictionary resides 
on disk, enabling the program to use 
under 100K of RAM so that you can 
run it simultaneously with your word 
processor. A two- page document can 
be checked in under one minute. 

Complete Data Automation, Inc., 
916-842-3431 (see address list, page 12). 

GAMES 

Continuing in the neighborhood 
pick-up game spirit of Epyx's Street 
Sports line, Street Sports Baseball fea- 
tures touches like a field dotted with 
bushes and tree stumps, and bases 
made from trash can lids and cardboard 
boxes. Each player controls pitches, 
times batters' swings, and regulates 
field action. For the 64. 

Epyx, Inc., 415-366-0606 (see ad- 
dress list, page 12). 



Superstar Ice Hockey ($34.95) lets 
one or two C-64 players take the ice 
as center or goalie, firing slapshots, 
hip-checking opponents, and blocking 
shots, along with coaching their teams 
and trading and drafting players. 

Mindscape, Inc., 312-480-7667 (see 
address list, page 12). 

SSI's first real-time C-64 flight sim- 
ulator, B-24 ($34.95) recreates 19 
WWII missions flown by the 406th 
Bombardment Group to the Pioesti, 
Romania oil fields. The player acts as 
pilot, co-pilot, navigator, engineer, and 
bombardier of the lead B-24 Libera- 
tor plane, and determines the flight 
path, speed, altitude, and bomb drop 
points for the entire formation. 

SSI also announced a five-year 
agreement with TSR, Inc. to produce 
at least 10 role-playing and several ac- 
tion games based on Advanced Dun- 
geons & Dragons. The games, to be 
available for the 64 and Amiga among 
other machines, will begin to appear 
in early 1988. 

Strategic Simulations, Inc. , 415-964- 
1353 (see address list, page 12). 

An Amiga (512K) adaptation of Mi- 
croProse's Silent Service submarine 
simulation utilizes onscreen icons for 
all function and activity selections, dig- 
itized sound recordings from actual 
submarine listening devices, and 32- 
color battle station screens. The pro- 
gram is designed for mouse control, 
but joystick and keyboard operation is 
also supported. 

MicroProse Simulation Software, 
301-771-1151 (see address list, page 12). 

Combining text adventure with 
scrolling graphics, Delta Man (S19.95) 
takes place in a post-holocaust Chica- 
go. Having survived thanks to your ro- 
botic space suit, you pick through the 
wreckage to find supplies, weapons, 
and fuel, ward off roaming bands of 
mutants, and search for other surviv- 
ing humans until you can escape. For 
the C-64. 

Cosmi, 213-835-9687 (see address 
list, page 12). 

The C-64 gamer must avoid the en- 
ergy-absorbing stares of The Sentry and 
her Landgazers while attempting 
through cunning strategy to usurp her 
as ruler of an alien world. Price is 
$39.95. 

Firebird Licensees (sec address list, 



HOW DOES IT RATE? 



Overall Rating 
Ease of Use 


A 
A 


Documentation A 
Reliability A 
Error Handling A 
Value for Money A 
COMAL Starters Kit rated by 
The Book of Commodore 64 
Soft ware 


Performance 
Ease of Use 
Reliability 
Documentation 


10 
9 
9 
8 



COMAL Starters Kit rated by 
The Best Vic/C64 Software 
(10 is highest possible rating) 



Overall rating: • * * • * 
Commodore 64 COMAL 2.0 
cartridge rated by INFO 
magazine (5 stars is the 
highest possible rating) 



Overall rating: * * * • 

Commodore 64 COMAL disk 
(COMAL Starters Kit) rated 
by INFO magazine 



COMAL is a well designed 
programming language now 
available for Commodore: 

C64 COMAL starters kit: $30 
C64 COMAL cartridge: $139 
CI 28 COMAL cartridge: $185 
C128 CP/M COMAL: $50 
IBM PC MS-DOS COMAL: $50 
(add $4 shipping) 

Demo disk for C64: $5 
Demo disk for MS-DOS: $5 

Under development for Amiga, 
Macintosh, and Apple II. 

COMAL Users Group USA Ltd 
6041 Monona Drive, Room 111 
Madison, WI 53716 
phone: (608) 222-4432 
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TRY 
BEFORE 

YOU bity: 

Best selling games, 

utilities, educational, and 

classics, plus new releases! 

• 1 00's of titles 

• Low prices 

• Same day shipping 

• FREE brochure 

YES. WE ACCEPT: 



RENT-A-DISC 

Frederick Building #345 

Huntington. VW 25701 

(304) 529-3232 
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Reader Service No. 157 



COMMODORE 

AUTHORIZED 

SERVICE 



POWER SUPPLY (C-64) $29.95 

C-64 REPAIR 44.95 

1541/1571 ALIGNMENT 35.00 

1541 REPAIR & ALIGNMENT 75.00 

C-128 REPAIR 95.00 

1571 REPAIR 95.00 

POWER SUPPLY (C-128) 84.95 

NOISE/SURGE PROTECTOR 17.95 

EXTENDED WARRANTY CALL 

Free Return Freight - Continental US 

Add$10forAPO, FPO, AIR 

Save COD charge - send Check or 

Money Order. (Purchase Order Accepted) 

Second Source 

Engineering 

2664 Mercantile Drive 

Rancho Cordova, CA 95670 

(916)635-3725 



Render Servicer No, 150 
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Delta Man: post-nuclear survivaiism. 
READER SERVICE A/0. 170 

page 12). 

Darkhom ($30.00) allows up to four 
C-64 strategists to compete simultan- 
eously in real time, utilizing the key- 
board, joystick, and paddles in any 
combination. Each player commands 
the army of one of the world's four ma- 
jor powers, which meet for a final con- 
flict under the shadow of the towering 
mountain Darkhom. Men, elves, and 
dwarves from each army fan out in all 
directions, recruiting new members in 
the villages and forests, while others 
fortify castles and prepare for the bat- 



tle. The winner must face the Dark- 
lord, who watches from his fortress. 

Avalon Hill. 301-254-9200 (sec ad- 
dress list, page 12). 

As the Sky Runner ($29.95) you must 
save 24th century mankind from the 
deadly and addictive drug Sky by de- 
stroying the huge harvesting machines 
and their defense towers. For the 64. 

Spinnaker Software, 617-494-1200 
(see address list, page 12). 

Two from Infocom, each $34.95 for 
the 64, $39.95 for the Amiga: 

Infocom's first interactive horror 
story, Vie Lurking Horror finds you 
compelled by a mysterious force to 
rummage through old basements, stor- 
age rooms, and decrepit tunnels on 
your college campus. Included is a 
mail-in coupon enabling you to pur- 
chase Suspect for $14.95. 

In Station/all you and Floyd (robot 
star of prequel Planetfall) travel on a 
routine mission to a space station to 
find it deserted save for an ostrich, an 
Arcturian balloon creature, and a 
brainy robot named Plato. The coupon 
Continued on page 61 



Companies Mentioned 


AmigaEXPO Headquarters 


In 


Pecan Software Svslems 


211 East 43rd Street, Ste. 301 


1410 39th Street 


New York. NY 10017 


Scuttlebutt 


Brooklyn. NY 11218 


Avalon Hill 




Phone: 718-851-3100 


Microcomputer Games Div. 




Poseidon Electronics 


4517 Harford Road 


Elkon Enterprises 


103 Waverly Place 


Baltimore, MD 2)214 


2914 Pennsylvania 


New York, NY 10011 


Phone: 3OI-254-92O0 


Wichita Falls, TX 76309 


Phone: 212-777-9515 


Buudvilte 


Phone: 817-692 -2781 


Practical Peripherals 


1001 Medical Park Dr.. S.E. 


Epyx, Inc. 


31245 La Bava Drive 


Grand Rapids, Ml 49506 


600 Galveston Drive 


Wcstlakc Village, CA 91362 


Commodore International 


P.O. Box 8020 


Phone: 818-991-8200 


1200 Wilson Drive 


Redwood Citv. CA 94063 


Prentice Hall Press 


West Chester, PA 19380 


Phone: 415-366-0606 


One Gulf + Western Plaza 


Phone: 215431-9100 


Firebird Licensees 


New York, NY 10023 


Complete Data Automation 


74 North Central Avenue 


Scott, Foresman and Co. 


P.O. Box 1052 


Ramsey, N; 07446 


1900 East Lake Avenue 


Yrcka, CA 96097 


Phone: 201-934-7373 


Glenview, IL 60025 


Phone: 916-842-3431 


Free Spirit Software, Inc. 


Phone: 312-729-3000 


Cosml 


538 East Edgcwxx) 


Soft-Byte 


415 North Figueron Street 


LaGninge, 1L 60525 


P.O. Box 5701. Forest Park 


Wilmington. CA 90744 


Phone: 312-352-7323 


Dayton, OH 45405 


Phone: 213-835-9687 


Infocom, Inc. 


Phone: 5O-278-8044 


Covox, Inc. 


125 CambridgePark Drive 


Spinnaker Software 


675 -D Conger Street 


Cambridge, MA 02140 


1 Kendal] Square 


Eugene, OR 97402 


Phone: 617-492-6000 


Cambridge. MA 02139 


Phone: 503-342-1271 


Micro Prose 


Phone: 617-494-1200 


Delta Research 


120 Lakefront Drive 


Strategic Simulations, Inc. 


3867 La Colina Road 


Hunt Valley, MD 21030 


1046 North Rcngslorff Ave. 


El Sobratite, CA 94803 


Phone: 301-771-H51 


Mountain View. CA 94043 


Phone: 415-485-6867 


Mindscupo, Inc. 


Phone: 415-964-1353 


Electronic Arts 


3444 Dundee Road 


Women Computing 


1820 Gateway Drive 


Northbrook, IL 60062 


2917 Upas Street 


San Mateo. CA 94404 


Phone: 312-480-7667 


San Diego. CA 92104 


Phone: 415-571-7171 




Phone: 619-297-7094 





avc any of your programs taken a trash" course 
lately? The kind that ends with the familiar 

? UNDEF'D STATEMENT ERROR 



Or maybe an ill-fated program keeps zipping from point 
A to point B when it was supposed to connect with point 
C. A careful check of the list reveals your problem. Now 
you remember what happened. 

While programming this soon-to-be masterpiece, you de- 
cided to give your fire -breathing dragon a mop of hair that 
Godzilla would envy. And, like all good dragons, he en- 
joys using greasy kid stuff when he combs his tousled head. 
Naturally you included a gooey sound effect whenever he 
slops the grease on. Since 01' Dragon Breath enjoys hav- 
ing the shiniest pate in Lizard Land, that gooey sound will 
be used a mega-bunch . 

You have all kinds of GOTO, GOSUB, and IF-THEN state- 
ments just waiting to activate your thrilling 'Goo' noise. Prob- 
lem is, they all send the program into oblivion. It seems 
that because you programmed these statements before you 
programmed the sound effect, you had no idea where to 
send them. No problem. You assigned each of them a tem- 
porary 'dummy' line number. You told yourself that when 
you finished the Goo routine, you'd go back and change 
the numbers. Time passed, and so did the memory of those 
ill-numbered statements. Oh well, all you have to do is lo- 
cate those dummies and correct them. There's probably not 
more than 500 of them. What the heck. Lizard Head can 
hold his fiery breath and slippery comb until you change 
them. Thank goodness it wasn't a really long program! 

Sound familiar'.' I've definitely had my share of crash 
courses, if you're tired of your programs taking the wrong 
turn, put them on Route 64. Route 64 lets you eliminate 
references to line numbers and replace them with labels. 
What the heck are labels?! Just the greatest invention since 
the mud pie! Whoever originated the idea deserves top bill- 
ing in the Hacker's Hall of Fame. 

Labels save a bundle of time and effort when you're pro- 
gramming. For example, you could have programmed 
GOTO GOO', or GOSUB 'GOO, or IF A=l THEN 'GOO. 
Later, when you told it to, Route 64 would have changed 
the labels into the correct line numbers. You can use as 



many different labels as you want. The more routines you 
have, the handier Route 64 becomes. 

Remember to save a copy of Route 64 after you type it 
in. When run, the loader POKEs the machine language data 
into memory and checks for errors. If none arc found. Route 
64 is ready to use. 

Route 64 uses labels that are made up of letters, num- 
bers, or a combination of both, with an apostrophe {') at 
the beginning and end (i.e., 'GOO" or ABCI23', etc.). Here 
are some examples: 



100 
110 
120 
130 
23' 



IF A=l THEN 'G00' 
GOSUB 'LOOP' 
GOTO 'ABC123* 
A=A+1:0N A GOTO 



'G00', 'LOOP', 'ABC1 



These are reference labels. As you can see, you just pro- 
gram the way you normally do, using reference labels in- 
stead of line numbers. You don't have to put spaces in your 
program. I did here for clarity. Your labels can be what- 
ever you like. For example, "LOOP' could refer to a FOR- 
NEXT loop that you use a lot. 

Route 64 only changes reference labels that follow GOTO, 
GOSUB, and IF-THEN statements that are not part of a 
REM line, DATA line, or contained in quotes, 

When you begin writing a routine that is referenced by 
a label, just label the routine like this: 

200 'GOO* REM GOO ROUTINE 

These arc destination labels. A delay loop might look some- 
thing like this: 

300 'LOOP' FOR J=l TO 1000: NEXT J 

You can also place a destination label on a line by itself: 

400 'ABC123' 

410 REM YOUR ROUTINE BEGINS HERE 

When you've finished your creation, and want Route 64 
to 'remap' the labels, just type SYS 52000, then press RE- 
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TURN. Here are the results: 



If you have a destination label on a line by itself, 



100 IF A=l THEN 200 

110 GOSUB 300 

120 GOTO 400 

130 A=A+l:ON A GOTO 200, 300, 400 

After Route 64 remaps your reference labels, it asks if 
you want the destination labels removed. Pressing the N 
key leaves them intact and exits Route 64 via BASIC. You 
can always have Route 64 remove them later, if you want. 
Remember, though, if you run your program and it stumbles 
across a forgotten label, a syntax error will blow 01' Laser 
Breath's Fire out. 

Press the Y key to remove the destination labels, and 

200 'G00' REM GOO ROUTINE 
will become 

200 REM GOO ROUTINE 

By the same token, 

300 'LOOP' FOR J=l TO 1000: NEXT J 

becomes 

300 FOR J=l TO 1000:NEXT J 



400 'ABC 123' 

changes to 

400 : 

The colon keeps line 400 in your program. All former ref- 
erences to ABC123' will still have a route to take. 

While it's remapping your masterpiece, Route 64 checks 
for errors and, if any are found, tells you what they are. 
Here are the possible errors: 

A) 'Error In Label": forgetting the apostrophes, and/or 
using characters other than letters and numbers, in your 
labels. 

B) 'Undefined Label': using a reference label without a 
corresponding destination label. 

C) 'Duplicated Label': having more than one destination 
label of the same name. 

D) 'Line Too Long': excessive line length. For example, 
if the reference label A' were being changed lo 10000 and, 
as a result, the line would exceed 80 characters, Route 64 
puts on the brakes. 

Route 64 can be brought to a halt at any time by press- 
ing the STOP key. 

Let your programming sessions travel on Route 64. Mr. 
Pompadour, your fire breathing comb twirler, will love you 
for it. . D SEE PROGRAM LISTING ON PAGE 87 



THE GREAT CONNECTION 

300/1200 BAUD HAYES® COMPATIBLE MODEM 

Get Connected with the NEW TCM-I200H 300/1200 baud Hayes® compatible modem for the Commodore® C-64 and 
C-128 computers. 

Using the same technology and state-of-the-art circuitry that is used in our IBM® PC Half Card modem, the TCM-1200H 
was designed from the ground up to work with and enhance the C-64 and C-128 computers. 

Compatibility -that describes the TCM-1200H. Just plug the connecting cable into the user port and you're all set. No RS-232 
interface and no power supplies to plug in, The TCM-I200H derives its power from the computer. 

• Compatibility with terminal software. Most of the popular 
terminal software already have provisions for Hayes type 
modems, just change the modem type to Hayes and you're 
ready. 

• Compatibility with the popular Hayes "AT" commands. 
Unlike other so called Hayes compatible modems, the 
TCM-1200H is fully Hayes compatible. 

• Compatibility with the FCC. The TCM-1200H is fully 
registered and type accepted with parts 68 and 15. 

In addition to being a vary compatible modem, the TCM-1200H also offers tone or pulse dialing, speaker with volume 
control, 8 front panel LED's, two phone jacks, TWO YEAR warranty, a free Quantum-Link starter kit and terminal software 
with Punter and Xmodem file transfer. 

Featureforfcaturcand dollar for dollar, the TCM-1200H is truly the best modem choice for your Commodore C-64 or C- 1 28 
computer. 

For more information or to order the TCM-1200H, write or call: 

Trans Com, Inc. 703-13 Annoreno Dr., Addison, IL 60101 Phone (312) 543-9055 BBS (312) 543-OI80 
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STEEPLECHASE 

For the C-64 



.„.« »** 



By 

Tony Brantner 



A steeplechase is a horse race which involves 
jumping over obstacles, such as walls and 
hedges. In this simulation of the sport, you 
can race against the clock or another player. 
You'll need Flankspeed (see page 79) to type in and save 
a copy of Steeplechase. After loading the program, type 
SYS 49152 and press RETURN to play. 

The title screen appears, prompting you to select a course 
length from one to three miles. Move a joystick plugged 
into Port 2 to the left or right to change the highlighted se- 
lection. When you have made your choice, press the fire 
button to begin. 

The game screen displays two separate windows. The joy- 
stick in Port 2 controls the horse in the lop window, while 
the joystick in Port 1 controls the horse in the lower win- 
dow in a two player race. The elapsed time is shown in 
the upper left comer of the screen in minutes, seconds, and 
tenths of a second. At top center is the course length, and 
in the upper right corner is the lowest elapsed time recorded 
for the. completed course. The distance traveled by each 
horse is shown, along with a bar meter representing the 
current speed. The horses enter from the left side of the 
screen, and when the gun sounds the race begins. 

To control a horse, move the corresponding joystick right 
to increase speed and left to slow down. Smooth scrolling 
is used in each window to simulate movement. In the back- 
ground, mountains and clouds scroll slowly, while obsta- 
cles in the foreground (stone walls, hills, hedges, and fences) 
move toward your horse more quickly. Press the fire button 
to jump over an obstacle. Although some are easy to jump, 
others require you to build up speed to make it over. Stum- 
bling over an obstacle causes your horse to slow down, so 
3 you have to time the jump just right in order to keep your 
& speed high. 

t The course is randomly created at the beginning of each 
< game. However, in the interest of fair play, both players run 
I the identical course simultaneously. The window of the first 
g player to reach the finish flashes, and if the time is lower 
I than the best so far, it is recorded and displayed during the 
"" next game. \3SEE PROGRAM LISTING ON PAGE 88 
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COPIES 99.90% OF PROTECTED SOFTWARE 
WITH POWER AND PARAMETERS TO SPARE... 
AND ONE FREE UPDATE 

• OVER 40 PARAMETERS built into the Invader Copying 
Modules are automatically called, when copying certain 
"Tough to Copy" disks. These are installed on SIDE 1 
with all the INVADER V9.5 COPIERS. 

• 170 EXTRA PARAMETERS, to copy recent disks that 
were impossible before are installed on SIDE 2 

of the LATEST DISK-INVADER V9.5. 

• USE WITH 1 or 2 1541/1571 Drives or compatibles or 
MSD Dual Drive and COMMODORE 64 and 128 
(used in 64 mode). 

FAST File Copy Included, with 8 second 

NO KNOCK PERFECT FORMATTER 

FAST FULL Disk Copier ror two 1 541/1571 copies 

in under 1 mmule. 

FAST FULL DiskCopierloione 1541/1571 copies 

in under 2 minutes 



SPECIAL 
PRICE 

TO ORDER send chock or money order in, 
Quebec residents, acid 9% sales lax. 
All orders shipped within -19 hours. 
Telephone: 1-51 a-62 1-2085 



PRICE P&P INCL. US $36.50 CDN S49.50 

AVAWGARDE 64 

1 8 Place Charny, Lorraine 
Quebec J6Z 3X9. Canada 
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COMPUTER DIRECT (A Division of RROTECTO) 
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80 Column Printer • 8V2" Letter Size 

15 Day Free Trial-Satisfaction or Your Money Back • 90 Day Immediate Replacement Policy 



Big Blue 




(Add $7.50 Shipping) 



The Affordable Printer You 
Have Been Waiting For! 



• Dot Matrix • Heat Transfer 

Upper/Lower Case (with true 

lower descenders) • Underline 

• Enlarged • Graphics 

* Plus Much More 



Sale 



$29 



95 



List $199 



This printer was made by Canon® for the IBM PC and PCjr. The Big Blue primer comes ready to hook up to the serial port of the IBM ©PCjr. Plus 
with low cost adapter cables you can connect the Big Blue printer to the Apple® II, lie, lie, Apple Compatibles, Alan® , Commodore® 64 ,128, SX-64, 
Vic 20. Plus 4, IBM®PC, IBM® XT, IBM® AT, IBM Compatibles , TI-99, Tandy 1000, plus many more. 



Intelligent Commodore Interface List $49. 95 Sale 114.45 RS-233 Adaptor (specify mate or female) List $19.95 Sal* • l.*J 

Intelligent Atari® Interface List $49.95 Sole $14.95 Paper (2 Rolls) List $19.95 Sale * 3.4$ 

Later m : Apple® lie Interface List $24.95 Sate $12.95 Single Sheet Paper (Qty. 500) List $29.95 Sale * 11,45 

l*W, Appl*. Canon, Convnodort, Atari 4 loi+r or* r«ejiil«r«d troo*marki of IrritrrcrfiiDnal 9w$ln*it Modiiirwi, AppU Compuiir towi Inc Commodore) 6tiii*«i MothLrwM. Aiarl lirtc. t VkWt? TadmologiH RttpKftvoty. 



Hi-Speed Printer Sale 

160 - 180 CPS • Lifetime Warranty* • Near Letter Quality 




*Vf NLQ-180 Printer 



NLQ-180 Print Samples 



^&7 
®*%* 



All prices expire B-31 -87 



Ore 
.•Mil 



This is an exaaplt <>f ITALICS 
En hanced Boldface 

CmdeiKtd "Bit Double-strike 

example of Hear Letter Quality 



Sale 

$ I99 




Save 60% Off List Price 



List $499 



• Near Letter Quality Selectable From Front Panel Controls • High Speed Dot Matrix 

* Letter Quality Modes * 8K Buffer frees up computer 4-times faster • Super Graphics 

• Pica, Elite, Italics, Condensed • Business or Personal ■ Tractor/Friction * 15 Day Free Trial 
* Lifetime Warranty on Print Head* * 6 Month Immediate Replacement Policy • 



INTERFACES 



Atari $39.95 Apple II 544.95 Commodore $29.95 IBM $24.95 Laser 128 $19.95 Macintosh $49.95 



Shipping, Handling A Imuranc* Chare** 

Add S10.00 lor shipping, handling, and insurance. Illinois rosldenl* pleas* add 
6%% soles lax. Add $20.00 lor ALASKA. CANADA, HAWAII. PUERTO RICO « 
APOFPO orders. All orders must be in U.S. Dollars. WE DO NOT EXPORT TO 
OTHER COUNTRIES EXCEPT CANADA S PUERTO RICO. Enclose cashier check, 
money order or personal check. Allow 14 days for delivery. 2 to 7 days fc-r phone 
orders, 1 day express moil. Prices & Availability subject to change without notice. 
VISA — MASTER CAMP — CO. P. Call For C. P.P. Charge!. 



A Division of PROTECTO 

22292 N. Pepper Road, 
Borrlngton, III. 60010 

We Love Our Customers 




312/382-5244 

For Commodore »Alari 

312/382-5050 

For Apple * IBM 
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Complete C-64 System 

INCLUDES: Computer, Drive, Monitor & Printer 




List $1045 



All this for *399 



• Commodore 64 Computer 

• Commodore 1541c Disk Drive 

• Hl-Res 12" Monochrome Monitor 

Monitor Cable 

• Big Blue Printer w/2 rolls paper 

Big Blue Intelligent Interface 



Complete Atari System 

INCLUDES: Computer, Drive, Monitor A Printer 




All prices 
expire 8-31-87 



List $1064 



Total Prices 




All this for *399 



List 



• Atari 130XE Computer 

• Atari 1050 Disk Drive 

• Hl-Res 12" Monochrome Monitor 

Monitor Cable 

• Big Blue Printer w/2 rolls paper 

Big Blue Intelligent Interface 

• Premium Word Processor 



*249 00 
'299 00 

*2-49°° 

• 19 v-, 

1 19900 
» 49« 

1 5 QtI 



'1045 



Total Prices 



'1124 



85 



Complete Apple 
Compatible System 

Computer, Drive, Monitor, Printer* Software 

Sale 

$ 449 




List $1228 



All this for only '449*: 

• Laser 128K Computer 

video, parallel & serial ports included 
runs virtually all Apple ll/llc/lle software 

• HI Res 12" Monochrome Monitor 

• Big Blue Printer with interface and paper 
" Software Package: word processor, 

spreadsheet & data entry 

■ Rocolvo ISO Merchandlie Dltcount When System Purchased at WW 

Apple® ii the rerjlitered trodemork of Applo Computers Int. 



Complete IBM® XT 
Compatible System 

Computer, Drive, Monitor, Printer & Software 

Sale 

$ 599 

All this for only »599 : List $2495 

• 10 MHz / 51 2K Super Turbo XT Computer 

video, parallel S serial cards included 
3.2 MS DOS & G.W. Basic included 

• Hl-Res 12" Monochrome Monitor 

• Big Blue Printer with interface and paper 

• Software Package: word processor, 

spreadsheet & data base 

IBM® fi the rtgittarvd trademark of InKrrulloool Builneti Machines. Inc. 




Shipping, Handling & Iniuranu Chargui 
Add 135.00 tor shipping, handling, and Insurance, Illinois roildenls please add 
6'/.% tales lax. Add $70.00 for ALASKA, CANADA, HAWAII, PUERTO RICO & 
APO-FPO ofderi. All order, moil be In U.S. Ootlors. WE DO NOT EXPORT TO 
OTHER COUNTRIES EXCEPT CANADA S PUERTO RICO. Enclose cashier check, 
money order or personal check. Allow 1 4 days lor dellvory, 2 to 7 days for phono 
orders, 1 day express moll. Prices S Availability subject tochongo without notice. 
VISA — MA STEW. CA RD — C.O.P. Coll For C.O.D. Chora 



COMPUTER DIRECT 

A Division of PROTECTO 

22292 N, Pepper Road, 

Barrington, HI. 60010 

We Love Our Customers 




312/382-5244 

For Commodore 'Atari 

312/382-5050 

For Apple « IBM 
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13" Color Monitor 

Removable Anti-Glare Screen 




All prices expire 8-31 -87 



List $329 



Monochrome Monitor 

JS^NHk •12" Screen • 80 column 




Add 110.00 ihipplng. 



List $249 



14" RGB & Composite 
Color Monitor 

Sale 




$ 



237 



Pius Green Screen Option Switch. 



List $399 



Magna vox TV Tuner 

• UHF/VHF • Front Panel Programmable Selection 
Buttom * Rabbit Ear Antenna • Fine Tuning And More 



Remote Scan TV Tuner 

• Works with Monitor/TV * Sleep Timer • Access to 139 

VHF/UHF/Cablo Channels • Signal Booster • Quartz 

Frequency Synthesized Tuner And More 




Add MOO thlpping. Addiiiorwl W.00 for APO/FPO, Li St $130 




AddS3.00ihippir>g.AddillonolW.00forAPO/FPO. LJSt $180 



Monitor Composite Cable $9.95 * RGB 80 Column Cable SI 9.95 (Please specify computer type) 



15 Day Free Trial * 90 Day Immediate Replacement Policy 

Best Prices • Best Service In U.S.A. • One Day Express Mall • Free Catalogs • 



Shipping... Handling A Imuraiictt ChargBi 

Add SI 1.50 [unUu otherwise noted) for shipping, handling and insurance* llllnoli 

residents pltnam add 6' * */• Tax. Monitors can only bo shipped To points served by 

United; Parcel Service wiihin tho 48 mainland stales. Enclose Cashier Check, Money 

Ord*r or Personal Chock. Allow 14 days (or delivery , 2 to 7 days for phone orders, 1 

day express mall. Prices & Availability subject To change without notice. No 
VISA— MASTERCARD— C.O.D, Monitors APO-FPCX ^ FOft C . .D. CHARGE 




to (312) 382-5244 

Ora@D* ' ?or Commodore "Atari 

c a ii (312) 382-5050 



For Apple • IBM 
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C64 Computer 




List $299 



With purchase of our special '39,95 software 

All prices expire 8-31-87 



C64c Computer 

Included with each computer is the GEOS Program: 
word processor and a versatile drawing program. 




nut! \ 



^ggm 



$ 



Sale 

149 



List $249 



Modem Package 

1200/300 Baud Auto Dial/Answer 

Sale 




$ 74 



• AutoCom Software Included • File 
Transfer • Tone/Pulse/Keyboard Dialing 
• Download Text/Data Files • Plus More List $329 



1541c Disk Drive 

* With purchase of the game Trivia Fever, 
computerized trivia, at our sale price of $29,95 

^ Sale 

List $249 




C 1 28 Computer 




List $329 



* Best Prices • Best Service • IS Day Free Trial • 90 Day Immediate Replacement Policy * Free Catalogs • 



Shipping, Handling & Iniurancs Chgrgu 

Add $10.00 tor thipplng, handling, and Iniurancs. Illinois roildonti pint* add 
6V, % lolot tan. Add $20.00 for ALASKA, CANADA, HAWAII, PUERTO RICO A 
APO-FPO order*. All orders mu«t bo In U.S. Dollori. WE DO NOT EXPORT TO 
OTHER COUNTRIES EXCEPT CANADA £ PUERTO RICO. Encloia caihier check, 
money order or penonol check. Allow 14 da vt (or delivery. 2 to 7 doyj for phono 
order*. 1 day expreit moll. Prlcoi & Availability iubjed to change without nolle*. 
VISA — MA STIR CABP — CO. P. Coll For C.O.D, Chora.i. 
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^IrffOr For Commodore "Atari 

can (312) 382-5050 
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Comstar Aero Printer 

^ rW.ii $*\ 

Sale %w 

List $349 



• 150 -170 CPS • Impact Dot Matrix 

s 10" Carriage • Underlining • Super & Subscript 

• Elite, Condensed, Emphasized, and Enlarged 

• Centronics Parallel Port and Much More 




Daisy Wheel 
Printer/Typewriter 

Sale*" 

$ I59 




Comstar 1 000 Printer 



Sale 

$ I49 







aMji*ri:i .t 1 1 hit it, 




List $499 



Superb 

Near Letter 

Quality 



• 100 CPS Impact Dot Matrix • Underline 

• Double Strike • Superb Near Letter Quality 

• Pica, Elite, Condensed, Italics • Super/Subscript 

• 10" Carriage • Plus Much More 



List $299 



• Drop-In Cassette Ribbon * Key in Buffer 

■ Automatic Centering • 12" Large Carriage 

• Superb Letter Quality Correspondence 

• Centronics Parallel Port • Plus Much More 



Electronic Compact 
Printer/Typewriter 

Sale**? 



$249 




List $399 



• 90,000 Word Dictionary • Centronics Parallel Port 

• LED Readout Flags Mistakes Before They Reach 

Print • 1 Line/ 240 Character Automatic Correction 

• Free 4K Memory Card Stores 4,000 Characters 



INTERFACES: Atari - $39.95 Apple II - $44.95 Commodore - $29.95 IBM - $24.95 Laser 128 - $19.95 



75 Day Free Trial • 90 Day Immediate Replacement Warranty 

• Best Prices • Best Service in U.S.A. • One Day Express Mail • Free Catalogs • 



Shipping, Handling JL Iniuranc* Chargot 

Add 110.00 II ordering the Com.lar fills printer, ond $12 00 H ordering the 
printer/typewrlTeri for .hipping, handling and inturonce. Illinois rsudnnlj piece add 
6%% ul« ton. Add 120,00 (replacing $10.00; and $24.00 (replacing $12.00) tar ALASKA. 
CANADA. PUERTO RICO 3 APO-FPO order.. All order, musl b* in U.S. Dollar.. WE DO NOT 
EXPORT TO OTHER COUNTRIES EXCEPT CANADA * PUERTO RICO. EncloM caihler cheek, 
money order or perianal check. Allow 14 day* for delivery. 2 to 7 days lor phone order.. I 
day exprett moll. Price. A Avolloblllly lubject to change without notice. 
VISA — MASTIBCARD — C.O.P. Coll for CO. D, Chamei, 
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Now With Conductor Software ffiff/ 

(A $19.95 Value.) 



Full Size Piano/Organ Keyboard 

^ Sale 

$ 69 

List $159 

With this 40 key (A-C) professional guage spring loaded keyboard, and the FREE Conductor Software included, you can play, 
record, compose and accomplish just about any musical feat from Bach to Rock. The built-in interface plugs right in to the 
joystick port of your Commodore 64/128. Just load the FREE Conductor Software (A $19.95 Value) and your on your way! 
• Adjust ihe keyboard to just about any instrument or sound you want • Teaches you how to play: from scales to any of the 35 
pre-recorded songs • Record and play back tracks until! your compost itlon Is complete • Plus much More 




The Music Teacher 

This Program teaches a beginner how to read music and play it 
correctly in rhythm on the keyboard. Features trumpet, organ, 
violin, synthesizer instrument sounds, built-in metronome, 
pause-play control and set-up menu for cusomizing the music 
teacher. (Disk) List $39.95 Sale $24.95 



The Printed Song 

With this program you can print out, in music notation, your 
composition for others to read or play. Requires The Conductor 
Program and printer compatible with the Commodore graphics 
mode such most dot matrix printers with a Commodore graphics 
interface. (Disk) List $29.95 Sale $19.95 



**% 5Va" Floppy Disk Sale 

Double Sided / Double Density 









100% CERTIFICATION TEST 

Each disk is individually checked so you will never experience data or 
program loss during your lifetime! 

FREE REPLACEMENT LIFETIME WARRANTY 

We ore so sure of these disks that we give you a free replacement 
warranty against failure to perform due to faulty materials or 
workmanship for as long os you own your disks. 

AUTOMATIC DUST REMOVER 

The smooth surface finish saves disk drive head wear during the life of 
the disk. (A rough surface will grind your disk drive head like 
sandpaper). The lint free automatic cleaning liner makes sure dust & 
dirt are being constantly removed during disk operation. 




1 Box of 10 — $4.40 (44 c ea.) 1 Box of 50 — $19.50 (39* ea.) * IBox of 100 — $29.00 {29' ea.) 

0029 Paper Economy Sleeves (10) 50* 0030 Paper Economy Sleeves (100) $5.00 



Shipping). Handling 6. Iniuranca Chdrg« 

Add S 3.00 for shipping handling, and insurance. Illinois randoms please add 
6V>% sales lax. Add * 6.00 lor ALASKA. CANA0A, HAWAII, PUERTO RICO 4 
APO FPO order. All orders mull bo in U.S. Dollars. WE DO NOT EXPORT TO 
OTHER COUNTRIES EXCEPT CANADA S PUERTO RICO. Enclose cashier dunk, 
money ordor or pergonal chock. Allow 1 4 doys for delivery, 2 to 7 days for phone 
orders, I day express mail. Prices S Avo I la bINty subject tochonge without notice. 



VISA — MASTER CARD — C.O.D. 



Call For C OP. ChargiM 
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For Apple • IBM 
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By Mike Heyt 



1 

1 s 



Ifl 



0128 




aimer Print is a joystick-driven utility written 
for the Commodore 128 in 128 mode. It uses 
hi-res graphics to let you see your entire banner 
at any time. You can magnify and edit por- 
tions of your banner, add text, draw lines and dots, load 
or save it, and print it using a variety of options. Banner 
Print was designed to be used with the Okimate 10 or a 
Commodore 1525 -compatible printer; it will work with 
other printers that can be used with the Commodore, but 
you may have to sacrifice some of the program's special 
printing options. 

Enter the program and save it to cassette or diskette. Af- 
ter you run the program, you will see the banner, a white 
strip, across the upper portion of the screen. At the bot- 
tom is a box filled with various labeled buttons. In the cen- 
ter of the box is an arrow. This is your pointer; you can 
control its movement by using a joystick in Port 2. Notice 
that when the pointer is at the bottom of the screen, it moves 
faster than when it is near the banner. This allows you to 
have finer control of the pointer when drawing on the ban- 
ner. Using either set of arrow keys will also move the point- 
er, but it will not slow down when it is in the banner edit- 
ing area. The buttons at the bottom of the screen can be 
activated by positioning the pointer inside the box and press- 
ing the joystick trigger. You can also draw on the banner 
by moving the pointer where you want and pressing the trig- 
ger. You can draw lines by holding the trigger down while 




A banner file loaded onto Banner Print's main menu screen. 
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moving the pointer over the banner. When the pointer moves 
over a pixel that is white, it will turn it black, and vice 
versa. The black pixels represent areas of your banner that 
are printed on the printer. 

Following is an explanation of each of the 12 buttons. 
Next to the name of each button (in parentheses) is listed 
an equivalent keypress that can be used to activate the but- 
ton instead of positioning the pointer and pressing the trigger. 

DRAW (D) 

Draw does just what it says. Move the pointer to the area 
of the banner you want to draw on, and press the trigger 
to draw. If the cursor is over a lighted pixel, it will turn 
it off. Likewise, if the cursor is over a dark pixel, it will 
turn it on. To draw long lines, just hold the trigger down 
and keep moving the pointer in the direction you desire. 

TEXT (T) 

This function allows you to type text directly onto your 
banner using the currently selected character set (see CHR 
SET below). When this button is selected, an arrow will 
point to the word TEXT" on the button. Move the pointer 
anywhere on your banner and press the joystick trigger to 
begin entering text. A blue box appears where the next char- 
acter you type will be placed. Use the INST/DEL or the 
left/right cursor keys to move the box, or press the RE- 
TURN key to exit text mode and return control back to 
the pointer. 

ERASE IE) 

Be careful about selecting this button! It will erase your 
entire banner and let you start all over. Fortunately, you 
will be asked if you are sure of your decision, 

LENGTH (L] 

This button allows you to select a new length for your 
banner. Press RETURN to cancel, or enter a number from 
1 to 120 to select the length. If the length of the banner 
is wider than the screen, the banner will "wrap around" 
to the other side. When working on your banner, remem- 
ber that if it "wraps around" the screen, it is continued on 
the left side of the banner strip below it. 

HEIGHT [HI 

Pressing this button lets you select your banner's height. 
Enter the new height, from 8 to 24 pixels, or press RE- 
TURN to leave the height as it is. In relation to the height 



#2 — FEB. '84 Illustrated tour ol tr-e 1541! 
Artificial intelligence! Synapses Ihor Woiosen- 
ko interviewed! String functions! And ready 
to enter: Music Maker Part II' Screen Manip- 
ulation! Night Attack! Relative Files! 


#3 -MAR. '84 Anatomy of the B4! Primer 
interfacing for VIC & 64' Educational software 
series begins! VIC game buyer's guide! And 
ready lo enter: Address Book! Space Lanes' 
Random Files on ihe 641 Dynamic Power' 


#5 — MAY '84 Future of Commodore! In- 
side BASIC storage! Memory management Dn 
the VIC 8 64! Guide to spreadsheets! Hurray 
lor arrays! And ready to enler: Math Master' 
Air Assault! Biorhythms' VIC Calculator! 


#6 — JUNE '84 Game programming col- 
umn begins! Code generating programs! Ru- 
pert on inputting' Memory management con- 
tinues' And ready to enler: Post Time tor the 
64 fi VIC! Alpiner! Sound Concept! 


#7- JULY '84 MSD dual disk drive! Data- 
base buyer's guide! Training your cursor 1 
Screen displays! File Sleuth! Users Groups! 

And ready to ewer: Renumbering! Checklist 1 
Math Defender! Brisk! What's My Job? 


#8 — AUG. '84 Choosing a word proces- 
sor! Computational wizardry! Creating your 
own word games! Sound on the 64! And 
ready lo enter: Micro-Minder! Directory As- 
sistance! The Terrible Twins! Words Worth! 


#9 — SEPT. '84 Program your own text ad- 
venture! Build a C-64 cassette interlace! Vid- 
eo RAM' Word processors, part II! And ready 
to enter: Salvage Diver! DOS! Sound Explorer! 
The Castle ol Darkness! Base Conversions! 


#10 — OCT. '84 C-64 graphics programs' 
Bit-mapped graphics! Joystick programming! 
Graphics processing! And ready to enter: VIC 
40 Column Operating System! BAM Read £ 
Print! Emerald Elephant! Lawn Job! 


#11 -NOV. '84 Music programs 8 key- 
boards for the 64! Graphics feature contin- 
ues! 2-D arrays! And ready lo enter: PTE word 
processor! Block Editor! Alternate Character 
Se: tor the 64' Tunnel of Tomachon' 


#12 — DEC. '84 Buyer's guide lo primers! 
1525 printer tutorial 1 Fast graphics with cus- 
tom characters' User Guide to KMMM Pas- 
cal! Diving into BASIC! And ready to enter 
Construction Co .1 Space Patrol' Cross Ref! 


#13 -JAN. '85 VIC and 64 OS exposed! 
Sprites! Insert a 1541 device # disconnect 
switch' Ghostbuslers! And ready to enter: Ul- 
tra Mail! Music Tutor! Alice in Adventuteland! 
Midprint! To the Top! Tape/Disk Transfer! 


#14 — FEB. '85 Prinler interfacing' Multi- 
color sprites! Modems! Bulletin Boards! The- 
ory of game design! Buying a modem! And 
ready to enler: Futurewar' Fontasia! VIC Era- 
ser' Insurance Agent! Flankspeed! Telelink 64! 


#15 — MAR. '85 Creating multiscreen 
gameboards! Inside the Plus/4! Commodore 
DOS! And ready to enter: Old Routine! Pro- 
grammable Functions! Automatic Line Nos.! 
Home Budget! Salmon Run! Numerology 1 


#16 — APR. '85 Asserrbly language col- 
umn begins! Programming the joystick! 1541 
disk drive alternates! The Kernal' And ready 
to enter: Hop Around' Faster 64! Booter! Ele- 
check! BASIC Trace' Space Hunt! 


#17— MAY '85 Disk drive enhancements! 
Install a reset switch' Assembler escapades! 
And ready to enter: Super Duper! Two-Col- 
umn Directory! DSKDU! Raid! DOS Plus! Font 
Editor! Tile Time! Interrupt Wedge' 


#18— JUNE '85 Music & graphics entry 

system! How modems work! Inside the 6510! 
And ready to enter: Ouad-Print! Mapping 4.4! 
Towers of Hanoi! Speedy! Duck Shoot! Bit 

Dumping! Screen Magic! 6510 Simulator! 


#19-JULY '85 PROM Programming 1 
3-part harmonies on VIG64! Speeding pixels! 
And ready lo enier: Aulo-Append 1 Script Anal- 
ysis! Wiiard ol lm' Lucky Lottery! Bramframe! 
Elch! Primal! Autos: Leasing v. Buying! 


#20 -AUG. 'BS Inside the 128' Real-world 
simulations! Sound ellects! Modems' And 
ready lo enler: Windows! Formatter! Sound- 
a-Rama! Screen Dump' Selectachrome' Oi- 
lmen ratot! Fidoits! Gators N Snakes! 


#22 — OCT. TW Create cartoon characters' 

Infinitesimal intrigue' Secrets ot copy protec- 
tion! And ready to enter- Shotgun! Maestro! 
Solitaire' Mystery at Mycroft Mews! Gravi- 
nauts! 1541 Cleaning Utility! Shade-/ Dump! 


#23- NOV. '85 Guide to adventure gam- 
ing! ML sprite manipulation! BASIC for begin- 
ners! And ready to enler: Lightning Loader! 
Knight's Tour! Chopper Flight! Rhythmic Bils! 
Instant Bug Repellent! File Scout! Slither! 


#24- DEC. "85 Speech synthesizer! The 
IBM Connection! The year's 25 best entertain- 
ments! And ready to enter: Gypsy Slarship! 
Directory Manipulator! Cloak! Gameloader! 
Jewel Quest 1 Lineout! Santa's Busy Day 1 


#25— JAN. '66 Build a speech synthesiz- 
er! Survey of sports games' And ready to en- 
ter: Martian Monsters! Streamer Foni! Micro- 
sim! Haunted Castle! Knockout! inlraraid! 
Alarm Clock! Memory Check' Scratch Pad! 


#26 — FEB. '86 Windows! Build an auto- 
exec cartridge! Align your 1541! Survey of 
flight simulators' Structured programming! 
And ready to enter: Arena' Head to Head! 
Crablighi! Treasure Wheel! Character Dump! 


#27— MAR. '86 Programming education- 
al games! Memory dumpers! Choosing a 
copy program! Custom characters! And ready 
to enter: AhoylTerm 128! Trivia Game Maker! 
Brickbusters! Easy Lister' Programmer's Aid! 


#28 -APR. '86 Comet calching! Survey 
ot action and straiegy games! Screen dum- 
ping! And ready lo enter: Chrono -Wedge! Mr. 
Mysto! Air Rescue! Notemaher! Screen Win- 
dow! JCALC! Hidden Cavern! Swoop! 


#29 -MAY '86 128 graphic bit map! Epyx 
strategy guide! 123 commands! ML music 
programming! And ready to enter: Bigprint! 
Star Search! Failsafe 1 English Darts! Ski folly! 
Free RAM Check! Alchemist's Apprentice! 


#30 — JUNE '86 Debugging dilemmas! 
Public domain software! Winning at Ultima! 
Computer Aided Design! And ready to enter: 
Lazy BASIC! Got A Match? Star Strike! Queen's 
and Bishop's Tours! Shaker! Trackdown! 


#31 -JULY '86 Inside the Amiga! Condi- 
tional branching' Chess programs! 128 and 
64 DOS! And ready to enter: Screen Sleuth! 
Skull Castle! Head-on! Nebergall Run! Word- 
count! Crazy Joe! Fidgits' Music School! 


#32-AUG. '86 inside the Amiga, part II! 
Approaching infinity! C-64 war simulations! 
Pascal lor beginners! ML graphics! And ready 
lo enter: Reversi! Highlight! Disk Catatoger! 
Meteor Run! Trim! Step On 11! Flap! 


#33- SEPT. "86 Windows and viewports 1 

Sound & music on ihe 64! COMAL! And ready 
to enter: The Last Nlnja! Speech64! Mulli 
RAMI Dogcatcher! Trapped! Matchblocks! 

Variable Manager! Dual Dump! Mine Canyon 1 


#34 — OCT. '86 Build a digital oscilloscope! 
ML speed techniques! And ready to enter- 
Vault o! Terror! Quick Change! Penguins' At- 
tack Force! Disk Checkup! Dvorak Keyboard' 
Mountaineer Mack! 128 to 64 Autnbnnl! 


#35- NOV. '86 C-128 shadow registers! 
Data file handling! PROMAL! Habitat! And 
ready to enter: Teleporter! 128 RAM Check! 
Discs of Daedalus! Guardian! Tenpins! Syntax 
Patrol! Deluxe List! Long Lines! Detonation! 


#36- DEC. '86 File manipulation! C-128 
shadow registers! Foolball games! And ready 
to enter: The Artist! Minolaur Maze! Mouse 
in the House! Lazy Source Code! Rebels and 
Lords! Speedway! The Editor! Micro City! 


#37— JAN. '87 Pointers and the monitor! 

Best games of '86' DOS for beginners! And 
ready to enler: Vortex! Hanger 14! BASIC 
Ahoy! Catacombs! Lixter! Dark Fortress! Per- 
maLine! Starfighter! Bugout! Screens! 


#38 — FEB '87 Hacking into machine lan- 
guage utilities! Amiga RAM expanders! And 
ready to enter: Window Magic! Crunchman! 
User Conventions! The Adventurer! More 
BASIC 128! Jailbreak! Turtle Rescue! 640! 


#39- MAR. '87 Basic esthetics! Survey 
of video digitizers! Multiplayer games! And 
ready to enter: C-64 Compressor! Wizard Tag! 
Turbopoke! Rescue 128! Lights Out! Pinball 
Arcade! Stow Away! Caverns of Geehonk! 


#40 -APR. '67 Inside the Amiga 2000! 
Fractals' Baseball games! COMAL, turtle 
graphics, and Logo! And ready to enter: Info- 
How! Laps! Pieman! List Formatter! Scramb- 
ler! Extended Background Mode! Planet Duel! 


#41 — MAY '67 Kernal power! 64 and Am- 
iga graphics! Microworlds In COMAL! Brain 
games! Dark Fortress master maps! And 
ready to enler: Moondog 1 Startup' Illusion 
Master! Wall Crawler! Scavenger Hunt! 


#42— JUNE '87 Megaflops and microsec- 
onds! Sci-fi braingames! C-64 to Amiga file 
transfer! And ready lo enter: D-Snap! Wraiths! 
Galactic Cab Co.! Cave ol the Ice Ape! ALT- 
Key 120! p w er Squares! 128 Multi RAM! 


#43 -JULY '87 Real world interfacing! Bit 
map graphics tutorial' C-64 graphic conver- 
sion' Martial arts software! And ready to en- 
ter: Wizard Tag II! Data Creator! Plink a Plonk! 
Univaders! Data Express! 128 Scroller! 



back issues of i\hoy! 

Why settle for reading Ahoy! only once a month? Order the back issues listed above 
and fill up those boring In-between weeks with all the programs, articles, and reviews 
you've mlised! Use the coupon below to order your issues while limited supplies last. 



Use coupon of facsimile. If or- 
dering more than four issues, 
list choices on a separate sheet. 

If you have a modem and want 
more complete information on 
any of the back issues listed, 
call Ahoyl's Bulletin Board Ser- 
vice at 718-383-8909. 



Please send me 

copies of issue # copies of issue AL 

copies of issue ff copies of issue #_ 



ALL ISSUES $4.00 

EXCEPT #3 AMD #3 ($ 10.00) 



Enclosed please find my check or money order for S. 
NAME 



(outside the USA add $1.00 per copy) 



ADDRESS 
CITY 



.STATE. 



_ZIP_ 



Send to: Ahoyt Back Issues, Ion International inc., 45 West 34th Street -Suite 500, New York, NY 10001. 
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Magnify mode enables you to draw and erase pixels an 
a magnified portion of your banner, just as in draw mode. 

you enter, the banner will grow in height on the screen. 

MAGNIFY (Ml 

This control allows you to do detailed work on a portion 
of your banner. A green rectangle will appear at the upper 
left corner of your banner. Using the joystick, position the 
rectangle over the area you want to magnify. After press- 
ing the trigger, the screen will blank while the 128 magni- 
fies the selected area. After a few seconds, the banner dis- 
play will return, and the pointer will be positioned in the 
lower left area of the screen over the magnified view. You 
can draw and erase pixels on the magnified view as you 
do when using the draw mode. Once you have finished, 
press the space bar and the control panel will reappear. 

PRINT (P) 

When you select this button, the program will ask you 
to prepare your printer and press the space bar to begin 
printing. While the banner is being printed, pressing the 
space bar stops the printer and gives you back control over 
the pointer. If you press "F" while the banner is printing, 
you can enter FAST mode. In FAST mode the screen blanks 
and the computer speeds up to 2 Mhz, thereby taking much 
less time to print your banner. Press "F" again to return 
to the normal "slow" speed. 

OPTIONS (O) 

Pressing this button allows you to choose options lor print- 
ing your banner. The seven options are: 

1. Print Graphic Blocks: If you answer "Y" to the prompt, 
the banner will be drawn using graphic blocks (options 2 
and 3 will be skipped). Note that this option may not work 
on non-1525 compatible printers. 

2. Print Character: Press any character from the keyboard 
to use for printing the banner. If your printer supports the 
Commodore graphic character set, you may use any graphic 
character on the keyboard. 

3. Fine Line Spacing: Answer "Y" to this prompt and 
your printer will squeeze lines of text together. "N" will let 



the printer do normal linefeeds. This option may not work 
on non-1525 compatible printers; if in doubt, consult your 
printer manual. 

4. Expand to Width of Page: Reply with "Y" if you want 
to s-t-r-e-t-C-h the vertical pixels to take up an entire 80 
column print line. Selecting this skips option 5, the pixel 
height option, since you have allowed the program to select 
the height for you. 

5. Pixel Height: This will let you select the number of 
columns wide each pixel from the banner will be on pa- 
per. Note that the banner is rotated 90 degrees when printed, 
so pixel height refers to the height on the screen and the 
width on paper. 

6. Pixel Width: Enter a number from one to ten to select 
how many rows make up each pixel on paper. The higher 
the number, the longer your banner will be. 

7. Special Printer Codes: If your printer allows special 
options that you want to use, such as a bold or italic char- 
acter font, enter the ASCII equivalent of the code stated 
in your printer's manual. If the code is made up of more 
than one ASCII code (an escape sequence, for example), 
you can continue entering codes until you type a "0". which 
signifies the end of the codes. For example, my Okimate 
10 defaults to skipping the perforation on continuous form 
paper. This feature would cause gaps in parts of my banner, 
so I would enter 27 (RETURN) 66 (RETURN) (RE- 
TURN) at the prompt to disable the perforation skip, which 
is the ASCII equivalent to ESC B, the sequence stated in 
my manual. 

CHR SET (C) 

This control allows you to select the uppercase/graphics 
set or the lower- and uppercase character set. 

SAVE (S) 

This will save your banner as a binary file. You can type 
up to 12 characters as the filename or just press RETURN 
to cancel the save. When you enter the filename. ".BNR" 
(BaNneR) is appended to it to distinguish the file from other 
programs or data files. Note that both the LOAD and SAVE 
features require a disk drive. Cassette users will either have 
to modify the load and save routines or do without these 
features. 

LOAD (G) 

Select this to load a banner file. RETURN cancels the 
load. The ".BNR" suffix is automatically appended to the 
end of the filename. 

QUIT (Q) 

Select this button when you've had enough! A prompt 
will ask you to confirm your decision in case you acciden- 
tally selected QUIT 

The size of the final version of Banner Prim surprised 
me. It would have been at least twice as long without the 
powerful graphics and sprite commands provided in BASIC 
7.0. I think Banner Print should prove to be a useful utility 
for your Commodore 128. □ 

SEE PROGRAM LISTING ON PAGE 84 
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SCANNER 

A Beginner's Machine Language Monitor for the C-64 

By John Krutch 



Scanner, a Commodore 64 machine language 
monitor, was designed for beginners, though 
more advanced users may find it helpful as well. 
It's the kind of monitor that I wish I'd had when 
I was beginning with the 64. 

Scanner lets you look at any location in memory and ob- 
serve its contents in binary and hexadecimal and as an ASCII 
character. Scanner is graphics-oriented. Memory locations 
are represented as cells, and Scanner itself is represented 
as a window above the memory cells. You can scan for- 
ward or backward through memory just by pressing a key. 

A handy feature of Scanner is that its display is contin- 
uously updated. Each memory cell on the screen is updated 
15 times per second, making it easy to sec what's happen- 
ing in memory locations that change as you press various 
keys or which change for some other reason. This is espe- 
cially useful for examining the lowest IK of memory, where 
there are many locations whose contents change frequently 
to reflect changes in the system. 

Fhtnkspeecl (page 79) is required to enter Scanner. When 
you've finished making a copy, use LOAD "FILENAME'S,! 
to load from disk or LOAD "FILENAME" 1.1 to load from 
tape. Then use SYS 49152 to start the program. 

To use it, just remember that Scanner is a moving win- 
dow that lets you scan tip and down through memory. Press 
fl to move the window up one memory cell {toward high 
memory). Keep 11 pressed to scan up continuously, Press 
to move the window down one memory cell (toward low 
memory}. Keep D pressed to scan down continuously. 

To switch the window to a new group of memory cells, 
press f7. A panel with a cursor will appear at the top of 
the screen. Type an address using four hex digits. For ex- 
ample, to see zero page location SE5 type 

00E5 

The memory cell plus the next four cells will appear. 

The address of the memory cell is the four-digit hexa- 
decimal number on the dark blue field; on the light blue 
field are shown the contents of the cell in binary, hex, and 
as an ASCII character. The contents are shown as an ASCII 
character only if they are an alphanumeric or punctuation 
character. If the contents are a graphics or control charac- 
ter, it is not shown. 

To understand exactly what you're seeing in the 64K mem- 
ory cells of the Commodore 64 requires a memory map, 
such as the one found in the Programmer's Reference Guide. 
To get you started, however, here are a tew of the more 
interesting memory locations on a C-64: 

$OOAO 

Locations S00A0, S00A1. and S00A2 form the jiffy clock. 
The byte at S00A2 is incremented every 1/60 second (the 



60 Hz AC power line provides the reference). Each time 
S00A2 reaches SFF. the byte at SOOAI is incremented, and 
each time S00A1 reaches SFF. the byte at SO0A0 is incre- 
mented. You can't see every single change in the contents 
of S00A2 because while S00A2 is changing 60 times per 
second. Scanner is only updating $00A2 at the rate of 15 
limes per second. 

$00C5 

This location contains a code (not ASCII) indicating what 
key. if any, is being pressed. Pressing the key, tor instance, 
will produce a code of S23. A code of $40 means no key 
is being pressed. 

$00C6 

The byte at this location shows how many characters are 
currently stored in the keyboard buffer, up to a maximum 
of 10 (S0A). When you press f7 to enter a new address, 
this byte is automatically set by Scanner to $00. 

$0280 

This location contains SOI if the SHIFT kev is pressed: 
S02 if the COMMODORE key is pressed: and S04 if the 
CTRL key is pressed. 

$0400 

Locations $0400-$07E7 are the screen RAM, They con- 
tain a coded representation of the current screen display. 
You can examine the screen codes that form Scanner's screen 
display by scanning through this area of memory. 

$0801 

Location S0801 is the beginning of the BASIC program 
area. With Scanner, you can examine the tokens and ASCII 
characters that make up a BASIC program. Load or type 
in your BASIC program, then load and run Scanner and 
scan through this area of memory. 

$A004 

Locations $A0O4-$A00C are part of the BASIC ROM. 
These locations contain the ASCII message CBMBASICO. 

$D808 

Locations SD808-SD80C are part of color RAM. Only 
the low nibble (lower four bits) of these locations is signif- 
icant, since a four-bit RAM chip is used for color RAM. 
The low nibble of all five of these locations will normally 
be $0. because the color of the graphics characters that form 
the top of cell SD80C is black, and the code for black is 
0. Pressing 17 changes all the low nibbles to SC. because 
the color of the graphics characters that form the panel is 
medium gray, and the code for medium gray is 12 (SC). □ 
SEE PROGRAM LISTING ON PAGE 91 
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1541 DISK DRIVE 




H(Ml COMMODORE 
DISK DRIVE 



FREE HOME TRIAL 



*with purchase of our specially priced software 



EMPLOYEE OF THE MONTH 

PAUL TARARA 

TECHNICAL SUPPORT MANAGER 




QUESTION: What is the major strong point of the 
Commodore 64? 

ANSWER: It's the best beginner computer on the 
market today, no other computer has 
more software available for people just 
starting out. 



DISK DRIVE 



WhK 

COMMODORE 

$159 



->r 



300 
BAUD 



MODEMS 




1671 
COMMODORI 



1200/300 
BAUD 



CALL TODAY 

OPEN 7 DAYS 
A WEEK & 
EVENINGS 



1-800-345-5080 



COMPUTER 



■<*$#* $ 139 



3 EOS 

NCLUDED 



with purchase of 
disk drive package 



COMPUTER 



:-i28 




with purchase of 
computer stand 



C-64 COMPUTER 



with purchase of our 
specially priced software 



PRINTER 



SEIKOSHA 

Jear Letter Quality 

5149 

ncludes Interface] 
FREE TRIAL PERIOD 



'lOOCPSDr.ill 

20 CPS Near Letter Quality Mode 

with purchase of printer kit 




COMMODORE READY! 







IBM COMPATIBLE 







• 640 K Ram 

• MS-DOS' 3 2 

• Two - J60K DEDD 

• PC-XT- Compai hie BIOS' 

• Centronics' Parn«ci Port 

• RS-232 Serial Port 

• 5 Fu i-S'je Expanyon S : ots 

• ConpatiO e to Suppal 40 MB Ha'c L- ;i- 

• PHQNIEX-BIOS 

• ATI Graph.cs Solutions Adapter' — Burtt-tt 
monochrome and color display card 
compal ble win IBM" CCA- and MEM ■ 
Here u'es- and Praniron cs* video modes 
-MONITOR ADDITIONAL 



$749 



Less — $150 

(with trade in) 

$599 

FREE SHIPPING! 



Trade in your working 
C-64 and 1541 Disk 
Drive And Receive a 
S150 REBATE! 



CALL TODAY ti 

AND ASK FOB 



THE CLONE KILLER" 



FOR 



256K RAM EXPANSION 



YOUR 
COMMODORE 



<L 64 C-128 AMIGA < 




$149 



ea. 



1764 



Expansion 
1750 Module 



FREE TRIAL PERIOD 



PRINTER 




FREE TRIAL PERIOD 



For Your 
Commodore 



^^flw^^Q- 



QLHCKDEUVERY 

r cM 



e: ■+ 



VISA 



SCHOOL PO's ACCEPTED 



PRO-TECH-TRONICS 

68B0 Shingle Creek Parkway 3221 

Minneapolis. MN 55430 
Customer Asstslance 16121 560-6603 
Technical Services (6121 561-3934 



Reader Service No- 130 



I L" 



SOFTWARE 



l J 



J Q 




LIMITED 
SUPPLY 

(NO DEALERS) 



ALL SIX 
PIECES OF 
SOFTWARE 

1. English II 4. Triad 

2. Math II 5. Pilot 

3. Science II 6. Fish-Metic 



$ 39 

FREE 
SHIPPING! 
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SIMULATORS 





GUNSHIP 
GOLF 



F-15 JET 



PRO-SPORTS 




LEADERBOARD 




WRESTLING 



TAG-TEAM 






WORD PROCESSING 





WORDWRITER Wea. TERM PAPER 
WITH SPELL CHECK WRITER 



POWER 
SUPPLIES 



ACCESSORIES 



$29 $ 69 




C-64 




C-128 



SURGE 
PROTECTOR 





Protect your 
computer from lightning 



For 64, PLUS 4 



$58^ 




TILT AND SWIVEL 
POWER CENTER 



MOUSE 



$34 



95 



PEN LIGHT 



• Pui' (town menu 
1 •Load oVoeiwy 

j tScraieii 

■ Browsu Fi'o 
•AOiustnU'O File 



s 89 

"Create Flexdraw 
Computer Graphs 



61 



FAST LOAD 
CARTRIDGE 



Load your 
programs 
5 time 
fasler! 



JOY STICK 



$9 



95 



"with suction cups 

C-64, Plus-). 128 



CALL TODAY 

OPEN 7 DAYS 
A WEEK & 
EVENINGS 




MONITOR 

GLARE 

GUARD 

$ 19 



9 



RS-232 

$48 




«29 



VOICE MASTER 

64/128 "'■"•• 

S79 —6 

Command you computer by voict; 



FREE TRIAL PERIOD FOR ALL ACCESSORIES 




FLOPPY DISK FILER 

$995 




\ 



1-800-345-5080 



' I IBi II 
J LA f li L~J '^.^J 11 



MONITOR 



COMMODORE RGB 



$239 



For Your 

Commodore 128 

with purchase of monitor glare guard 



FREE TRIAL PERIOD 



DISKETTES 



DOUBLE DENSITY 
DOUBLE SIDED >^fe^ 




28 ? 

IN 100 LOTS 



ea. 



LIFETIME GUARANTEE! 



MAXON 
RADAR 



with purchase of 
floppy disk (iter 



FULL 
COLOR 



MONITOR 



COMPOSITE 

$178 



FREE TRIAL PERIOD 



MONITOR 




MONOCROME 



m 



FREE TRIAL PERIOD 



PRINTING 




CALEMDAR 

AND 
STATIONERY 



$g 



ELECTRONICS 
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For the C-64 

By James C. Hilty 





opcorn, peanuts, hot dogs -the crack of the bat 
1 and the roar of the crowd -a runner heading 
for home in a race against an outfielder's accur- 
ate arm -now that warm weather is here the 
main topic of conversation is the national pastime, baseball. 
Bailer Up! is a one-player baseball simulation for the C-64 
which will sharpen your batting eye against a clever compu- 
terized pitcher. The game features a split-screen playing 
field, joystick control, and an optional printing routine for 
making hard copies of lineups and batting averages. The 
game is written entirely in BASIC with numerous REM 
statements, so you can see what's going on with the program. 

GETTING STARTED 

Type in and save a copy of the program, then RUN it. 
The screen will prompt you for the name of your team. 
Next, the screen will ask you for a name for the computer 
team. Pressing the return key at either prompt will name 
the team, with the default name Pittsburgh for you and New 
York for the computer. The screen will then show you your 
batting order with the player's batting average next to his 
name. The batting averages are different each time the game 
is played. You then have the option of making a hard copy 
of the lineup and averages (on a 1525 or equivalent printer) . 

The playing field is drawn next. A split screen is used, 
with a batter on the left and an overhead view of the stad- 



ium on the right. The effect is that of watching a game on 
TV with one camera behind the catcher and another cam- 
era on the roof of the stadium. You are the visiting team 
and thus bat first. A bell will sound when the pitcher is 
ready to throw a pitch. The pitcher will go into his windup 
and throw the ball toward home plate. You have the choice 
of either taking the pitch or swinging at the ball by press- 
ing the fire button on a joystick in Port 2, 

The computer pitcher throws five different pitches. The 
ones outside the strike zone cannot be hit. When you hit 
the ball any number of things can happen, just as in real 
baseball. The player's batting average has a lot to do with 
it. For example, a player batting .340 has a better chance 
of hitting a home run than a player batting .180, but the 
.180 hitter will still occasionally drive one out of the park. 

The game plays just like regular baseball, with one ex- 
ception -if a player is walked, then any other runner on 
the basepaths moves up one base. Thus, a walk is the same 
as a single. The balls, strikes, outs, and inning are displayed 
on a small scoreboard on the left of the screen. The score, 
batter, and batting average are displayed on the large score- 
board on the right of the screen. The runners currently on 
the bases are represented by X's on the bases on which they 
are standing. The result of your hitting the ball is displayed 
on the right of the screen. 

After your team makes three outs, the computer's results 
for that inning are displayed and it is your turn to bat again 
in the top of the next inning. The computer may score from 
to 3 runs in each inning. Since the computer is the home 
team, the computer gets "last bat." After nine innings, the 
game is over. 

STRATEGY 

When first playing the game you should take some pitch- 
es so that you can see what the pitcher is capable of throw- 
ing. After a while you will be able to differentiate between 
the various pitches and will be able to see a strike coming. 

Sometimes you will have a powerhouse team with high 
averages, and will probably want to swing away. In other 
games you might have a team with low averages, and you 
may want to take more pitches. Usually, you will have a 
lineup with a mixture of batting averages and you will want 
to manage accordingly. 

The game moves along fairly fast; you will have to make 
quick decisions. In this game you have to be the batter and 
the manager. Now, the only remaining question is this — 
Are the Mets going to repeat, or are the Pirates going all 
the way? □ SEE PROGRAM LISTING ON PAGE 80 

AHOY! 31 



pUPISR^IEPCRJ 





Using Interrupts for 

Electronic Screen 

Swapping 

©y »ME WKRT 

^^•^■^^V hy should anyone in tins of electronic 
v remote controls need to switch the video 

^ ^r monitor from 40 column to 80 column 
^^^^ mode by hand? That is one of the ques- 
tions I have asked myself since I started using the Com- 
modore 128. 

The obvious answer is that we shouldn't. This month we 
will present a hardwire/software project that eliminates the 
arduous burden of manually switching a "green screen" vid- 
eo monitor from one mode to the other. We will let the 
computer control an electronic relay to do the switching. 

For those of you with dual-mode Red-Green-Blue (RGB) 
monitors such as the 1902, this hardware will not solve your 
problem. Perhaps the ideas along with the software pre- 
sented here can be adapted for your system. In the mean- 
time, you must still reach up and press that switch on your 
monitor. 

Those of you who don't have a green-screen monitor and 
are not interested in controlling a relay with your compu- 
ter may at least find the discussions of programming with 
interrupts useful. 

We will set up an interrupt routine that 1) remains active 
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even after a RUN STOP/RESTORE warm boot, and 2) can 
coexist with other such routines. These are not trivial re- 
quirements, but they are not difficult to achieve. 

GREEN SCREENS 

If you use your C-128 for serious work (as opposed to 
serious game-playing), you should be taking advantage of 
the 80 column mode. The least expensive and in some re- 
spects the best way to use 80 column mode is with a "com- 




posite" monochrome video monitor, usually called a "green 
screen" 

These are monochrome displays with green or amber 
phosphors, and usually with very high bandwidth and reso- 
lution. The bandwidth is a measure of the sharpness of an 
image on the screen. A standard television set may have 
a bandwidth around three or four megahertz. It is not un- 
common for a green screen monitor to have a bandwidth 
of twelve or fifteen megahertz. The higher the bandwidth. 



ILLUSTRATION: TOM CUSHWA 

the sharper the image. 

The electron beam zooming across the screen is turned 
on and off at appropriate times causing some phosphors 
to glow and others to blank, thus generating the video im- 
age. Low bandwidth circuitry simply cannot turn the elec- 
tron beam on and off quickly enough to show the individual 
pixels of 80 characters per line. You must squint and use 
a lot of imagination to read 80 column text on a television set. 

In addition to TV sets and green screens, there are RGBI 
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(red-green-blue-intensity) monitors, usually called RGB 
monitors. To get high-resolution text and multiple colors, 
you need one of these "direct input" monitors. The RGB 
monitor is much more costly than a green screen. Text on 
a S600 RGB monitor will be almost, but not quite, as sharp 
as text on a $100 green screen. Text on a 5300 RGB mon- 
itor is not nearly as clear as on a green screen. 

The C-I28 takes very limited advantage of its RGB cir- 
cuitry. (Ever try to draw red, green, or blue circles in 80 
column mode?) This may sound like heresy, but it seems 
a waste to attach an expensive RGB monitor to the C-128. 
Why? Because the C-128's RGB output (80 column mode 
in BASIC) only supports text, and a green screen is better 
than an RGB monitor for text. 

What's the best solution? If you use your C-128 computer 
primarily for programming and word processing, get a green 
screen. Period. If you also want to play games or generate 
color graphics, get a separate color composite (not RGB) 
monitor, such as the 1701 or !702, or use a television set. 
Another possibility is to use one of a new breed called a 
"television/monitor" which allows you to bypass the RF (ra- 
dio frequency) circuitry. (In general, the RF section limits 
the sharpness of the image.) 

The C-128 allows you to select either the 40-column out- 
put or the 80-column output. With this months project, the 
computer will automatically route the selected output to the 
green screen. 

THE HARDWARE 

Building this project is a straightforward task. Refer to 
the schematic diagram on page 36. The Parts List on this 
page includes Radio Shack numbers in parentheses. There 
are many other sources for these parts. If you use a relay 
different from the one listed here, you may need a differ- 
ent value of resistor. We will discuss that later. 

You may use any method to assemble the project. Prob- 
ably the neatest and easiest is to use a pre-drilled and -etched 
universal printed circuit board such as the one with the box 
in the parts list. 

Refer to the Assembly Tips on page 40 to help with the 
construction. Be sure to figure out how to fit all the cables 
and components in the box before you begin soldering things 
together. Also determine the placement of the parts on the 
printed circuit board, if you use one. 

The relay is an electrically controlled switch attached to 
the cassette motor driver. When the computer is first turned 
on, there is no power supplied to the relay coil, and the 
relay switch is in the Normally Closed position. This brings 
the output from the 40-column Video port to the video mon- 
itor. If the C-128 is used in C-64 mode, the relay is not 
powered, and the 40-column output is selected. 

To bring the 80-column signal from the RGBI port to 
the monitor, power must be applied to the relay coil. It be- 
comes an electromagnet which pulls the switch from its 
Normally Closed position to the Normally Open position. 
You can hear a click as the relay switch changes positions. 

Power is brought to the relay coil from the motor driver 
circuit of the cassette port. Software controls the state of 
that circuit. Software that normally turns on the cassette 



PARTS LIST 

Relay (275-240)*: SPDT, 5 VDC, 90 mA 
Resistor (271-005)*: 22 ohms, 'i or ¥i wait 
Djode (276-1122): IN914 or equivalent switching diode 
Phono plug and cable (42-2371): 6' coax with one plug 
DIN plug (274-003 or 274-020): 5 or 6 pin male 
Sub-D plug (276-1537): 9 pin male 
Sub-D hood (276-1539): to fit 9 pin plug 
Card-edge socket* (part of 276-1551): 0.156", 12 pins 

Optional: 

Box and circuit board (270-283): enclosure and univer- 
sal etched and drilled printed circuit board 

(Radio Shack part numbers are shown in parentheses) 
♦Refer to the article for details 

motor now energizes the relay. 

The diode is an important part of the circuit. Be sure 
it is connected properly. Do not use the circuit without it! 
The relay generates a voltage surge whenever it is deener- 
gized. The diode keeps the surge from damaging the driving 
transistor inside the computer. 

If you use a relay different from the one listed, you may 
need a different value of resistor. There are two types of 
ratings associated with a relay: the coil rating and the con- 
tact rating. The contact rating tells how much current can 
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be safety switched by the relay (typically 1 or 2 amps at 
125 volts AC). The video signals we are switching are very 
small compared to the maximum allowed contact ratings 
of most relays. We are only concerned with the coil rating. 

The coil rating tells the nominal voltage and current re- 
quired to make the relay coil operate. The relay in the parts 
list has a coil rating of 5 volts DC, 55 ohms resistance, 
and 90 milliamps of current. Actually you need only any 
two of these numbers. The third is found from Ohm's law: 
V = I * R where V is voltage, I is current in amps, and 
R is resistance in ohms. Verify that 5 volts approximately 
equals 0.090 amps (90 milliamps) times 55 ohms. 

The output of the cassette motor circuit is nominally 6 
volts, though it could be close to 7 volts. Use a relay with 
a coil rating of 6 volts or less. For a conservative design, 
we'll assume the motor output voltage is 7 volts. With a 
nominal 5-volt coil relay, the remaining 2 volts from the 
cassette port must be dropped across a resistor. 

The value of the resistor is calculated from Ohm's law 
since the voltage across it is known (7 volts minus the re- 
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lay coil voltage) and the current through it is the same as 
the current through the relay coil. 

Assume you use a relay with a nominal 6 volt coil which 
needs 100 milliamps to turn on. There will be 1 volt across 
the resistor (7—6=1). The current through the resistor 
will be 0.1 amp (100 milliamps). Therefore the value of the 
resistor must be 10 ohms (1 volt / 0. 1 amp = 10 ohms) from 
Ohm's law. Only certain values of resistors are available. 
If your calculated value is not available, choose the next 
higher value. 

A relay will not reliably turn on if the resistor value is 
too large, since there will not be enough current through 
its coil. If the value of the resistor is too small, too much 
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current will flow, possibly damaging the relay and the cir- 
cuitry inside the computer. 

The only other hardware concern is the power rating of 
the resistor. Resistor power ratings range from fractions of 
a watt to several watts. To calculate the minimum power 
rating of the resistor, multiply die resistance times the square 
of the current: P = 1 + 2 * R. 

For the resistor in the parts list, current is 0.090 amp and 
resistance is 22 ohms, so its power consumption is 0.18 watt 
(0.09 ♦ 2 * 22). We must use a resistor with a power rat- 
ing at least this great, so W watt or larger is the proper 
choice. A Vs watt (0.125 watt) or smaller resistor cannot 
dissipate heat rapidly enough for this circuit and may even- 
tually burn out. 

Now let's look at the software to control this hardware. 

THE SOFTWARE 

We want the software to have the following characteristics: 
1. It must continuously check the display mode of the 
computer (40 or 80 columns). 

2. It must turn the cassette motor 
output on when the computer is in 80- 
column mode and must turn the motor 
output off when in 40-column mode. 

3. It must be loaded once and remain 
active without interfering with other 
programs. 

4. It should not be disabled with a 
RUN STOP/RESTORE warm boot. 

The first and third requirements im- 
ply the use of the IRQ (Interrupt Re- 
Quest) interrupt routine. The compu- 
ter executes the IRQ routine every six- 
tieth of a second. The normal IRQ rou- 
tine does such things as update the jif- 
fy clock and scan the keyboard. It is 
possible to patch our program into the 
IRQ routine so that it will check the 
video mode and set the relay accordingly. 
When an interrupt occurs, the com- 
puter calls the subroutine whose ad- 
dress is stored in RAM locations $314 
and $315 (hex). The normal IRQ rou- 
tine address is $FA65. We will put the 
address of our program into locations 
$314 and $315. When the interrupt oc- 
curs, the computer will then call our program. Our program 
will conclude by sending the computer on to the original 
IRQ routine. This is a process called "wedging." We will 
wedge our program into the normal interrupt sequence. 
Requirement number four is the trickiest constraint. Nor- 
mally the warm boot routine rewrites the original IRQ ad- 
dress ($FA65) into locations $314 and $315, breaking the 
link to our program. After that our program would no long- 
er be executed by the interrupt routine. 

A standard solution is to tell the user to enter a SYS com- 
mand after a warm boot. This would execute a simple ma- 
chine language routine to replace the vector at S314/$315 
with the address of our program once again . 
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any Commodore 
Computer 

C = 1700 1ZBK 

Expansion Module 

Cs 1730 512 K 

Expansion Module 



WE REPAIR YOUR 

COMMODORE COMPUTER 

and PERIPHERALS! 

C-II.C-H/C (3*. 95 
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MPS-IOl.MPS-IU Piinlin 13°. IS 
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C128 Power Supply $39.95 

C64,C64-C Power Supply $29 95 
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Cadpak 




Super Pascal 

Your complete system for developing 
applications in Pascal. A complete implemen- 
tation ol standard Pascal (Jensen and 
Wirth). C-64 version has a high-speed DOS 
(3X) for quick and efficient use. The 
extensive editor (source included) contains 
added foatures: append, search and 
replace. Includes assembler for any of your 



Design pictures and graphics Quickly and 
precisely. Unlike ottier drawing programs, 
you can produce exact scaled output on 
your printer. Design in the units of your 
drawing problem (teet, miles, meters, etc.) 
and send hardoopy to most printers. Uses 
either the keyboard, lightpenor 1351 mouse. 
Two separate work screens— transfer 
artwork from one screen to the other. Place 
text in four sizes anywhere in the 
picture— three extra fonts included; Old 
English, 3-D and Tech. "Try Again" allows 
you to undo mistakes. Draw solid or dashed 
lines, circles, ellipses at any angle, rays and 
boxes. Design fill patterns, fonts and 
objects. Cadpak is the full-featured design 
and graphics package for your computer, 
for C-64 $39.95 forC-128 $59.95 




BASIC Compiler 

Now anyone can speed up their BASIC 
programs by 3 to 35 times! Basic -64 and 
Basic-128 easily convert your programs into 
fast machine language or speedcode (takes 
up less space yet protects your programs 
from prying eyes) or a mixture of both. You 
can even compile programs written with 
ex ten lions— Simon's Basic, VICTREE, 
BASIC 4.0, VideoBasic and others. When 
the compiler finds an error, it just doesn't 
stop, but continues to find any other errors 
as well. Supports overlays and has many 
other options. 128 version works in FAST 
mode and allows you to use all 128K of 
memory. If your program walks or crawls, 
give it the speed to RUN! 
for C-64 S39.95 for C- 128 $59.95 



machine code" requirements. Used in 
hundreds of schools to teach programming 
and also used lor serious development 
projects. But it can be used for more than 
just learning Pascal, use it for serious 
programming. With complete graphic library 
(source included) in machine language tor 
super-fast execution. Want to learn Pascal 
or develop software using the best tool? 
Super Pascalis your first choice, 
for C-64 $59,95 for C-128 $59.95 



"„. everything a good compiler should 
be. ..easy to use ...efficient... offers a good 
range of optional features.. .excellent 

documentation., .in expensive, " 

Tom Banford, Commodore Magazine 
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Give your 
BASIC programs 
a boost! 



. . and SUPER BOOKS! 






GEOS 

TRICKS 

GTIPS 




Anatomyofih* C&i 
Insiders gu»de lo %4 intemahi 
Graphic?, sound, l.'O, kemal. 
memory maps, and much 
mora Complete comma mad 
ROM I ratings 30Opp $19 05 



Aii* to my of lha 154 i Dflva 
Besl handbook on this drive. 
explains all Filled with many 
evample* programs, utilities 
Fully commenied 1541 ROM 
listings SOOpp $19 96 



Trick* t, rfcrt forth* C-64 
Collection ol easy-to use tech- 
niques, ad v. i need graphics, 
improved data input CPrM h 
enhanced BASIC, data hand- 
ling and more. 27Spfl £19 95 



GEOS tnstd* and Out 
Detailed in!o on GEOS Add 

Ecujt own app icaiioni lo 
iEOS Ed-i icons Constant 
display clock Singie-slep 
through memo7. $19 95 



GEOS Trtpk* and Tip* 

Collection of helpful lech' 
niquei tor all GEOS uteri. 
Incudes lont editor, machine 
language monitor, quick 
backup, more. $1995 
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BASIC 7.0 
INTERNALS 
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C- 1 2$ INTERNALS 

Important C-12B information. 
Covers graphic crips, MMU d 
\iQ t BO column graphics and 
lully commantad ROM 

list ings> more. 500pp $19,55 



f J7T INTERNALS 
Essentia I reference Internal 
drive (unctions. Explains 
various disk and file tormats. 
Fully-commented ROM. 
IcJings 450pp 519,95 



C-12* TRICKS*. TIPS 

Fascjnaiing and practical info 
on the C-12B. 60- col hires 
graphics, bank switching, 
300 pages of useful Inform- 
al bn lor everyone. 319.95 



C-12$ PEEKS 4 POKES 
Dozens ol programming 

quick- hrtters. techniques on 
Ihe operating system, fljeka, 
zero page, pointers, and 
BASIC, 24upp !■■ ■ 



C- 128 BASIC 7.0 Interna ta 

Gel all the inside info on 
BASIC 7.0. This exhaustive 
handbook is complete with 
lully commented BASC 7.0 
MOM listings. $2495 
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A Complete Pro Football 

Prediction Program For The 

1987 NFL SEASON 



Accurate vs 'Line' in 1986 



More In 
'87 To . 



• • 



FEATURES 



Predicted Scores Each Week 

Season Schedule By Week 

Season Schedule By Team 

Scores By Week 

Scores By Team 

Win Loss Record Home/ Away 

Division Standings 

Stats — Accumulated & Average 

Line By Week 

Line By Team 

Record vs Line 

Record vs Common Opponents 

Individual Team Match-Ups 

Printed Copy All Screens 

1983-1986 Data Base 

(Includes Alt of the Above) 

Easy Updates Playoffs/1988 

Not Copy Protected 

Dealer Inquiries Invited 



BEAT THE SPREAD 

74 



• • 



95 



INCLUDES DISK AND 
DOCUMENTATION 
SPECIFY 5W OR 3'/, DISK 

IBM, Tandy & Compatibles 
Commodore 64 — 128 
Apple 11+ - lie — lie — llgs 
TRS80 Mill / IV 



Stats Needed To Run Program Available In 
Local Newspapers Or We Will Furnish All Stats 
By 1st Class Mail, Season Price 40°°. 

Our Bulletin Board Will Furnish All Stats, Lines, 
Predictions and Trends Updated Daily. Season 
Price 55°°. Program Comes Updated Thru Current 
Week ol Season ... No Extra Charge. 



VISA- 



ORDERS SHIPPED IN 2 DAYS 

PHONE LINES OPEN 24 HRS. 

ADD 3" SHIPPING & HANDLING 



■C.O.D. 
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TOLL FREE - 800-722-2277 
TEXAS COLL. - 214-586-8212 
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Marathon Software Dept. A 

P. 0. BOX 1349 - 641 FORT WORTH ST. 
JACKSONVILLE, TEXAS 75766 

7011 FREE I COLLECT FOII ORDERS OKU 
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Wo don't want a standard solution. Wc want the warm 
boot routine itself to put our programs address into the IRQ 
pointer at $3l4/$3I5. The secret to doing this is derived from 
the book Commodore 128 Programming Secrets by William 
Wiese, Jr. (Osborne McGraw-Hill). 

During the warm start sequence (but after it has rewrit- 
ten the IRQ vector), the computer jumps to the address con- 
tained in the SYSTEM__VECTOR in RAM locations $A00/ 
$A01. Normally this is the BASIC warm start routine at 
$4003. All we need to do is replace the $4003 at SAO0/$A01 
with the address of our own initialization routine. 

Our initialization routine will restore the IRQ vector to 
point to our main program. It will also check the 40/80 
column mode and set the relay to select the proper video 
output. Then our initialization routine will continue with 
the normal warm start sequence at $4003. 

PEACEFUL COEXISTENCE 

One final but very important consideration is that our 
IRQ wedge should be able to coexist with other programs 
which use the IRQ vector or the SYSTEM_VECTOR. 
How many times have you loaded a utility only to find that 
another utility in memory now no longer works? There is 
no reason for such a thing to happen if both utilities are 
written properly and if they are not stored in the same mem- 
ory locations. 

The simple solution is to read and save the vector you 
arc replacing rather than merely to assume the default vec- 



tor was there. An example will clarify this. Locations S314/ 
$315 normally contain the address $FA65. Assume we have 
two programs which are both to be wedged into the IRQ 
routine. PI resides at address $1400 and P2 at $1500. 

If PI were an inconsiderate program, it would simply put 
its starting address at $1400 into $314/5315 and its last state- 
ment would be JMP $FA65. If P2 were also an inconsiderate 
program and were loaded next, it would put $1500 into $314/ 
$315. It thereby overwrites the $1400, and PI is no longer 
called by the IRQ routine. If you reinitialize PI, then P2 
no longer works. 

Here is how the two programs should be written. PI reads 
die value in $314/$315 and saves it in a variable called P1VEC, 
for example. Assume the value it read is the default value 
SFA65, so PIVEC equals SFA65. 

PI then stores its own main routine starting address 
($1400) at $314/$315 so the interrupt routine will call PI. 
The last statement in Pi's main routine would be JMP 
(PIVEC), that is, "jump to the location whose address is 
stored in PIVEC." This is equivalent to JMP SFA65. just 
as before. So far, so good. 

Now load and initialize P2 the same way. P2's initializa- 
tion routine reads the value in $314/$315 and saves it in vari- 
able P2VEC. This value is not the default value $FA65. In- 
stead it is the starting address put there by PI, so P2VEC 
equals S1400. 

P2 wedges its main starting address ($1500) into $314/$315. 
The last instruction in P2's main routine is JMP (P2VEC). 

AHOY! 39 



ASSEMBLY TIPS 

1. Cut off two eight-inch lengths from the free end of 
the coaxial phono plug cable. Strip the outer casing back 
about V2 inch from both ends of each of the two pieces 
and at the severed end of the original cable. Be careful 
not to cut very much of the shield wires. Strip the inner 
insulation back about l A inch from each end. Twist each 
of the braided shields. 

2. Solder the inner wire of one 8-inch piece of cable 
to pin 7 of the 9-pin D connector. Solder the twisted 
braid of that piece to pin 1 of the D connector. Label 
the other end of that wire "NO". (See Step 4.) Solder 
the inner wire of the other 8-inch piece to pin 4 of the 
DIN plug. Solder its braid to pin 2 of the DIN plug. 
Label the other end of that wire "NC. 

3. Twist and solder the three free braids together (two 
from the 8-inch cables in step 2 and one from the orig- 
inal phono plug cable). You may want to tie-wrap the 
three cables together. 

4. The inner wires of the three cables are attached to 
appropriate pins on the relay: the inner wire of the 9-pin 
D cable goes to the Normally Open (NO) terminal, the 
6-pin DIN cable inner wire goes to the Normally Closed 
(NC) terminal, and the phono plug inner wire goes to 
the Common (COM) terminal of the relay. If there is 
more than one Common terminal, it may go to either one. 

5. The cathode end of the diode goes to one side of 
the relay coil and also to one end of the resistor. (The 
cathode end of the diode is marked with a stripe.) 

6. If you use the 44-pin card-edge connector (0.156 
inch spacing) in the parts list, you must cut it to make 
a 12-pin connector. Just use a hacksaw and cut it through 
pin 7. (The longer piece of the connector can be cut again 
through pin 10 to make a 24-pin connector which fits 
the user port,) 

7. Cut two pieces of wire, one red and the other black, 
about eight inches long. Solder the other end of the di- 
ode (its anode) and the black wire to the other side of 
the relay coil. Solder die red wire to the open end of 
the resistor. Solder the other end of the red wire to pins 
C/3 of the 12-pin cassette port card-edge connector. Sol- 
der the black wire to pins A/1 of the 12-pin card-edge 
connector. 

That's all there is to it. The 9-pin D connector goes 
to the RGBI port, the circular DIN connector goes to 
the Video port, the 12 -pin card -edge connector goes to 
the Cassette port on the C-128. The phono plug goes to 
the video monitor input. 

What does this do? It causes execution to continue at ad- 
dress $1400, so now PI will also be executed. All properly 
written IRQ wedges will be executed, but opposite to the 
order in which they were loaded. 

Any number of IRQ wedges can be implemented this way. 
The only constraint is that the routine obviously must not 
occupy the same memory space. One may have to be relo- 
cated if they overlap. 

The same concepts apply to programs which are to be 



wedged into the warm start routine through the SYSTEM 

VECTOR at SA00/SA01. Let's put these principles to work. 

Look at the assembler listing SCRNSWAP. ASM on page 
83 for the following discussion. The program has three 
separate entry points, the Initialization (line 13), the warm 
boot Restart (line 39), and the Main routine (line 62). The 
Initialization is called from BASIC when the program is 
first loaded. The Restart is called after a RUN STOP/RE- 
STORE reboot. The Main program is called every sixtieth 
of a second by the interrupt routine. 

The initialization routine begins at address $1500. Vari- 
ables IRQVEC and SYSVEC in lines 157 and 158 will store 
the values read from the IRQ pointer at S314/S315 and the 
SYSTEM_VECTOR pointer at SA00/SA01. The initializa- 
tion will be executed by a SYS 5376 or SYS DEC("1500") 
statement in BASIC. 

Lines 115 through 118 determine if this initialization has 
already been executed. If so, it is not repeated. If not, lines 
120 through 122 read the IRQ vector from S314/S315 and 
save it in IRQVEC. Lines 124 through 127 save the SYS- 
TEM_VECTOR in SYSVEC. 

Lines 129 through 132 wedge the starting address RE- 
START of the warm boot portion of the program into the 
SYSTEM_ VECTOR. CON PIG at line 142 is called to read 
and save the current video mode, initialize the relay, and 
wedge the MAIN routine into the IRQ vector. The initiali- 
zation portion of the program is done, and it returns to 
BASIC in line 135. 

Now the RUN STOP/RESTORE warm bcxit sequence will 
branch to our program beginning at address RESTART in 
line 140. The RESTART routine calls CONFIG beginning 
at line 143 to determine the video mode, to initialize the 
relay, and to wedge the MAIN portion of our program into 
the IRQ vector. Finally in line 141 the RESTART routine 
jumps to the vector it previously saved in SYSVEC. 

The IRQ vector points to our MAIN program at line 162. 
This program is executed every sixtieth of a second. The 
program compares the previous video mode saved in vari- 
able PREVMD to the current mode. The current video 
mode is indicated by bit 7 of location SD7 (MODEFLG). 
If this bit is 1. 80 column mode is selected; corresponds 
to 40 column mode. The current mode is saved in line 167. 
If the current mode is the same as the previous mode, the 
routine exits in line 171 to continue with the normal IRQ 
routines. 

If the video mode was changed during the previous six- 
tieth of a second, line 169 branches to the RELAY routine 
at line 174. Lines 175 through 182 perform an initialization 
so that the motor output of the cassette port can be changed. 
Line 183 decides if the relay should be turned on for 80 
column mode or off for 40 column mode. 

If 40 column mode is selected, the relay is turned off. 
Also the 40 column display is turned on by setting bit 4 
of the VIC control register at SD011. A zero is stored in 
the processor clock rate register to put the computer into 
SLOW mode. 

If 80 column mode is selected, the relay is turned on. 
The speed of the computer is not changed. This allows the 

Continued on page 60 
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SOFTWARE SECTION 



ACTION IN 
OUTER SPACE 

The Hottest Science Fiction 
Arcade Software 



By Amie Katz & Bill Kunkel 



When the cares of the world hang 
heaviest, there's something invigorat- 
ing about an unabashed shoot-em-up. 
Even an ardent adventure gamer can 
be coaxed away from parser-pounding, 
at least temporarily, by the speed, the 
sounds, and the excitement of a rous- 
ing science fiction blastathon. 

The sedate Pong was the very first 
computer game for the masses, but it 
didn't take space action games long to 
blast into the public consciousness. A 
solitaire contest in which the player 
shot at a pesky flying saucer with a 
spaceship cannon was raking in quar- 
ters at amusement centers within a year 
after the Pong craze hit. 

The years 1984-1986 weren't gener- 
ous to fans of action science fiction 
software. The much -discussed slump 
in real-time computer games hit the 
science fiction category especially 
hard. The public had always closely 
identified science fiction themes with 
the suddenly unchic videogames, and 
computer funware publishers didn't 
want guilt by association. 

It is axiomatic that when publishers 
stop buying a type of software, design- 
ers stop trying to create it. Authoring 
entertainment software is a career, af- 
ter all, and it's hard to make a living 
out of unsold product, 

In the U.S., talents once devoted to 
the zap and pow of outer space combat 
turned to hot game themes like sports 
simulations and adventures. Science 
fiction action disks, which once 
seemed as numerous as the stars in the 
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Starglider is a 
largely origin- 
al arcade ac- 
tion game. 
Vector style 
line graphics 
help enhance 
the sensation 
of moving at 
great speed, as 
welt as free- 
falls and sud- 
den stops, 
READER 
SERVICE m W 



Milky Way, had become as rare as Mr. 
Spock's smiles by summer 1986, 

Help has come, not from across the 
firmament, but from across the Atlan- 
tic Ocean. Britain's Videogame Era had 
a more modest boom and a far less dis- 
astrous bust. No one told U.K. pub- 
lishers, designers, and consumers that 
they should stop liking science fiction 
action programs, so they didn't. As a 
result, hundreds of SF-orientcd joystick 
jambourees have made their debut in 
Great Britain in the last two years. 

These new titles aren't just the same 
old reflex-testers, cilher. They reflect 
today's tastes in audiovisual effects and 
sophisticated play-mechanics. U.K. 
space battle programs not only look 
better than many of the science fiction 
classics, but most mix just enough 
strategy to keep play from becoming 
numbingly repetitive. 



Jeremy San's Starglider ( Firebird) is 
a rarity among entertainment software 
products: a largely original arcade-style 
shoot-out. This C-64 translation by 
Solid Image gives American computer- 
ists a chance to enjoy a program that's 
already been a smash in England. 

Starglider is an innovative first- per- 
son space combat contest. Although it 
visually resembles vector graphics 
games, and it shares some elements 
with Battlezone and Stellar 7, the total 
package is remarkably fresh. 

The game begins when the player's 
AGAV (Airborne Ground Attack Vehi- 
cle) zooms into the fray at near-light 
speed. The AGAV is capable of out- 
running anything your Alliance, Egron, 
or Aruloid foes can send after it, short 
of light-speed vehicles. 
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64c $149 95- 

128 $229 K * 

128D $CALL 

•package pricing 




1901 ( men oehrom •).... $9 9 9r ' 

1802c $199 05 

1902A $249" 

.IL 




1581 .TTTT. SCALL 

1541c $i69 i,a 

1571 $219" 




300 BAUD.... $28 00 
0KIMATE20_*18O oc 

1351 $ 39 95 

QUANTUM LINK... $ 2 
1764 RAM.... $ CALL 
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(UNLOCK S225 00 
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20 MEG *800™ 
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IBM COMPATIBLE 




PC10-1 

$49995 

S55O.O0Alon» -With purchase of 1901 or 1902 A »650Alon«j 



•512K 

• 360K Dual 
Sided Drive 

• CGft Board 

• One year warranty 

• Parallel Port 

• Serial Port 

• GW BASIC 

• DOS 3.2 

SIDEKICK 
BY BORLAND 

PCI 0-2 

$ 574 95| 



DUAL 
DRIVE 
640K 



20 MEG...S350 Seagate 



30 MEG...$400 
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DISKS & ACCESS. 



MOUSE PAD.. 
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$1.30 
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DISC HEAD CLEANERS 
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CommodMB Loao S25 
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Silent Butter Si O 

Xclec interface SCALL 

Kwik Load 55 
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Uridiurn: for carnage connoisseurs. 
READER SERVICE NO. 120 

The most exciting feature of the Star- 
gUder craft, however, is that it can save 
on fuel by gliding for great distances. 
To accomplish this, the pilot takes the 
AGAV to a decent altitude and kills the 
engines. This is not only an energy-sav- 
ing strategy, but it is also quite useful 
in attack situations. 

StargUder communicates the sensa- 
tion of moving at great speed, as well 
as sudden stops and frcefall, better than 
any previous flying and shooting pro- 
gram. The vector-style line graphics, 
which convert objects to crystalline, 
three-dimensional sculptures, were an 
excellent choice to enhance this per- 
ception. Enemy vehicles and station- 
ary anti-aircraft batteries grow from 
simple points of light at very high al- 
titude to beautifully articulated struc- 
tures as the AGAV dives toward them, 
as its "Sapphire ir quadpulse laser can- 
nons and "Starburst" proton missiles 
scream a deadly warning. 

The AGAV boasts some very impres- 
sive technology. It runs on plasma en- 
ergy, generated in its own onboard 
molecule expansion chamber, and is 
equipped with a "posilok" laser cell re- 
fueling nozzle on its nose. The console 
includes a local area scanner, energy 
level meter, shields, altitude meter, vel- 
ocity indicator, bank level indicators, 
plasma drive status display, heading, 
and missile indicator. 

But the AGAV's most fascinating 
gadget is its TGS {Television Guidance 
System). The AGAV can launch this 
camera for reconnaissance and contin- 
ue to hover in its current position un- 
til the camera returns. It scouts the ter- 
rain and simultaneously transmits those 
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pictures back to base. 

The backdrop for the action in Star- 
glider is extremely complex. The game 
conies with excellent documentation, 
including a keyboard guide, instruction 
booklet, poster, and a novella, with- 
out which one can hardly tell the good 
guys from the bad buys. The latter are 
in plentiful supply, too. Confronting the 
player are not one, not two, but three 
enemy alien races! 

Fortunately, the program provides 
the gamer with the chance to get a 
briefing on the nature of the various en- 
emy vehicies and weapons. When the 
AGAV flies into any of the docking bays 
scattered along the hostile landscape, 
the gamer may run a quick visual tu- 
torial on enemy technology. Each tank 
and missile launcher telescopes into 
view and does a 360-degree spin while 
the screen displays all avaUable data 
beneath. 

But the main treasure of StargUder 
easily outshines all diat window dress- 
ing, as good as it is. What matters here 
is all-out futuristic battle action, and 
StargUder delivers it, guns blazing, en- 
gines roaring, and bombs bursting. For 
pure visceral excitement, this is one of 
the year's best. 



exciting science fiction action game, 
with more than a dash of strategy to 
spice the tactical combat. 

The game casts the computerist as 
the pilot of an IBIS spacecraft. The 
player and four other spacemen jour- 
ney to an alien planet on what looks 
like an uneventful recon mission. 

The destination world is divided into 
five zones, Alpha through Epsilon. The 
massive artificial intelligence which 
dominates this world {the C.I.U.) is 
planning to invade Earth. After acquir- 
ing this information, the player must 
make contact with the other spacefar- 
ers, destroy the C.I.U. before it springs 
its attack, and escape to safety through 
the Intergalactic Tcleport in the Epsi- 
lon exit zone. 

What makes Parallax so interesting, 
however, is that it permits the player 
to explore the alien world either in the 
IBIS or on foot. When the player 
moves to specific points in each zone, 
a menu appears which provides the op- 
tion to leave the craft with whatever 
supplies (oxygen, guns, ammo, drugs, 
and scientists) are required. 

On foot, the player can enter the 
Hangars, which house the scientists 
and computers under the protection of 
deadly robot guards. The player must 



Your mission in 
Parallax: to de- 
stroy a massive ar- 
tificial intelligence 
which dominates 
an alien world, 
then escape to 
safety. You and 
four comrades can 
explore the planet 
either on foot or 
from your IBIS 
spacecraft. 
READER 
SERVICE NO, 121 
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At first look, Parallax (Mindscape) 
seems like yet another unremarkable 
Xevious clone: an arcade-style shoot - 
em-up in which the player blasts any- 
thing that moves while piloting a fly- 
ing cannon. Second and third glimps- 
es, however, reveal that there is more 
happening here than first appeared to 
be the case. Ptmillax is an original and 



obtain data cards from scientists and 
feed them into data terminals in order 
to decode the passwords for each of the 
alien zones. When the computerist de- 
ciphers the final password in the final 
zone, the C.I.U. unit self-destructs. 

This phase of Parallax is balanced 
by some dandy combat scenes. The 
IBIS can actually change altitude and 



engage targets on several levels. 

The Parallax screen displays the ac- 
tion from a straight overhead perspec- 
tive. The IBIS can whiz through the 
sky, land on a strip, or move through 
the underground out of the player's 
view. 

The topography also includes "black 
holes." When the IBIS flies over one 
of these, it sucks the ship into its inky 
maw and spits it out of an adjacent 
"hole" with a boost in velocity. A dex- 
terous pilot can fly into a scries of these 
black holes to build up speed. Hyper- 
space Ports are similar to biack holes, 
except that they "port" the IBIS to a to- 
tally random point. 

Puzzles and challenges are sprinkled 
throughout this game like Easter eggs. 
For example, the scientists won't give 
up their data cards unless they've been 
drugged first. The only way to get past 
this sticky bottleneck is to carry a sup- 
ply of narcotics with which to immobil- 
ize the savants. 

In light of some past criticism, it is 
important to mention that the docu- 
mentation supplied with Pamllax is ex- 
cellent. It tells computerists everything 
they need to get the most out of the 
Parallax experience. 

Parallax also has one of the strang- 
est sounding theme songs in computer 
history. It's not exactly pleasant listen- 
ing, but it's guaranteed to be the first 
one you've ever heard quite like it. 

The visuals, though nothing extra- 
ordinary, are at least workmanlike and 
totally acceptable. Greater realism in 
the animation of the IBIS ships would 
have improved the game. When an 
IBIS bounces off a zone division line, 
for example, it looks too cartoonish. 
Fortunately, the heart and soul of the 
gameplay, the IBIS' cannon, works very 
smoothly 

So don't pass by Parallax without a 
diorough inspection. It may look a little 
too familiar at first boot, but there's a 
treasure of a science fiction action 
game inside. 



(Iridium (Mindscape) is a high class 
throwback to a simpler age of compu- 
ter entertainment. Designer/program- 
mer Andrew Braybrook cloaks this 
deep space slugfest in a rudimentary 
story, but what Uridium is really about 
is flying, shooting, and dodging. 



A fleet of super-dread naughts is 
menacing the game's home solar system. 
The huge interstellar craft are drain- 
ing the mineral resources of the region's 
15 planets for fuel. Under the player's 
joystick control is the last Manta fight- 
er capable of repulsing the invaders. 

The computcrist begins this do-or- 
die mission with three lives. If the 
speedy and maneuverablc Manta fails 
to eliminate a super-dreadnaughl be- 
fore exhausting its three lives, the game 
ends in an alien triumph. Otherwise, 
the Manta continues the battle against 
the next alien vessel. 

Programs Covered 
In this Article 

STARGLIDER ($39,95) 
Firebird Software. P.O. Box 49, Ram- 
sey, NJ 07446 (phone: 201-444-5700). 

URIDIUM ($29.95) 
PARALLAX (529.95) 
Mindscape, 3444 Dundee Road, 
Nonhbrook, IL 60062 (phone: 312- 
480-7667). 

Before the Manta can directly attack 
a super-dreadnaught, it must duel the 
swarms of protecting fighters. These 
come in various shapes and sizes, and 
they zip back and forth across the 
screen at good speed. 

When the Manta has thinned the 
protective screen of fighters sufficient- 
ly, the "land now" message appears in 
the upper right corner of the screen. 
If the Manta flies flat from left to right 
over the runway located at the right end 
of each super-dreadnaught, the Mania 
ship enters the fuel pod chamber. 

In this subsidiary phase of the pro- 
gram, the display shows a pyramid of 
blinking lights. The player must press 
the joystick button at the instant the in- 
dicator with the bonus number is lit. 
The gamer repeats the procedure at 
each level of the pyramid, but must se- 
lect "Quit" before the countdown clock 
at the top of the screen reaches zero. 

The main display then returns, so 
that the Manta pilot can watch the 
once-powerful alien colossus vaporize. 
Urkiium permits (lie Manta to make a 
final strafing run against the defeated 
foe before transporting it to the next 
planet and a new adversary. 

The reference card which comes 
with the eight-page instruction manual 
quickly teaches die computerist to con- 
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trol the Manta ship with the joystick. 
Pushing the joystick forward or back 
sets the Manta's position relative to the 
super-dreadnaught which it is current- 
ly attacking. Pushing it left or right 
governs the speed and direction. 

A couple of interesting special man- 
euvers are possible. Pushing the stick 
all the way in one direction produces 
a half-loop followed by a half-roll. This 
acrobatic move is especially useful for 
avoiding incoming missiles and mines. 
The Manta executes a 90-degree roll, 
handy for getting through tight scrapes, 
when the player moves the stick for- 
ward or back whde pressing the action 
button. 

The button also fires the Manta's 
twin cannon. Battle-hardened blast bri- 
gades will regret the tact that each sal- 
vo requires a separate press of the but- 
ton. Uridium is the kind of action con- 
test which screams for continuous fire. 
The graphics are good, though a lit- 
tle Hat. The singular exception is the 
Mania itself, which looks great as it 
darts and swoops around its much larg- 
er antagonist. 

Veteran computer gamers will not 
have to be told that Uridium is essen- 
tially the product of a single creative 
individual. Braybrook does a solid job 
on the play-mechanics, control scheme, 
and main action, but he includes few 
of the niceties which most software 
buyers take for granted. Bringing in a 
specialist to handle the option screens, 
vanity board, and other admittedly 
peripheral aspects of the program 
would have produced a more profes- 
sional, "finished" program. 

Real joystick jockeys won't let any 
lack of trimmings deter them from 
wading into this spaceborne shoot-out. 
The power of Uridium is its thrills, not 
ils frills. Carnage connoisseurs, this 
one's for you. 

Things to Come 

Thanks to the timely infiision of Brit- 
ish-designed programs, science fiction 
action contests are riding a new wave 
of popularity in the United Stales. Pub- 
lishers are issuing two to three new fu- 
turistic disks per month. 

In other words, the future couldn't 
look brighter for science fiction action 
contests. Armchair space pilots arc ad- 
vised to keep the rockets warm, and 
their trigger fingers at the ready. □ 
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By Michael R. Davila 

Send your programming and hardware hints to Tips Ahoy!, 45 West 34th Street -Suite 500, New York, NY 10001. 



DIRECT LOADS 

I never seem to be able to remember filenames. If you're 
like me, you frequently use the directory to load programs, 
by typing LOAD in front of the filename and then adding 
.8: or ,8,1 at the end of the filename. Wouldn't it be nice 
if I could just type LOAD in front of the filename, press 
RETURN and have ,8: or ,8,1 already there? 

I knew it was possible to embed characters to the right 
of the filename by separating the filename from the em- 
bedded characters with a SHIFTcd space (when embedded, 
COMMODORE-D turns out to be a comma, and the shifted 
@ a colon). I could of course rename each file one by one 
and remember the proper sequence to add .8: or ,8,1, but 
that seemed like too much trouble. 

I modified a program that appeared originally in Tips 
Ahoy! (Ahoy!, February 1986, page 87). Directory High- 
lighter was designed to highlight a filename in the direc- 
tory. A few modifications allowed me to use this program 
to add the ,8: or ,8,1 suffix. The addition of this suffix still 
allows 12 characters for my BASIC program filenames and 
11 characters for my machine language program filenames. 

-Benoit Beaudoin 
Montreal, Canada 

•10 OPEN15,8,15:GOSUB160 

•20 SS$=CHR$(16fJ):CD$=CHR$(172):N8$=CHR$( 

56) :SA$=CHR$( 186) :N1$=CHR$(49) 
•30 BA$=SS$+CD$+N8$+SA$ 
•40 ML$=SS$+CD$+N8$+CD$+N1$ 
•50 PRINT" [CLEAR] [RVS0N]B[RVS0FF] ASIC OR 

[RVS0N]M[RVSOFF]ACHINE LANGUAGE 
■60 GET KY$: IF KY$= ,m THEN 60 
•70 IF KY$="B" THEN 100 
•80 IF KY$="M" THEN 130 
•90 END 
■100 INPUT"NAME OR BASIC PROGRAM" ;BP$ 

• 110 PRINT#15 , "R0: "+BP$+BA$+"="+BP$ :G0SUB 
160 

•120 GOT050 

•130 INPUT"NAME OF ML PROGRAM" ;MP$ 

• 140 PRINT#15 , "R0 : "+MP$+ML$+'V+MP$ ; G0SUB 
160 

■150 GOT050 

■160 INPUT#15,E,E$,T,S 

■170 IF E=0 THEN RETURN 

■180 PRINT E,E$ 

■190 END 

SINE DRAWING ON THE C-128 

The SIN mathematic function is a very old yet powerful 
tool in BASIC. With the power and speed of the 128% BASIC 
7.0, the SIN can be used to create complex designs. 

The program below uses three main variables that you 
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must answer at the INPUT prompt. They are for the X and 
Y axes, and the degree at which the picture is to be calcu- 
lated and drawn. The program makes use of the 128 s DRAW 
command also. The DRAW command uses a different kind 
of technique, as you will see in lines 50 and 64. DRAW- 
TO? I know, the 128's documentation does not make men- 
tion of it; however it is the equivalent of DRAW 1, RDOT 
(0), RDOr (I) TO X,Y, where RDOT(0) and (1) are the 
last X and Y coordinates drawn at. Thus DRAWTO simply 
means to DRAW a line from the last X and Y location to 
an updated position. 

When you run the program, experiment with different 
X and Y axes and the viewing angle. There are many, many 
possible screen formations! —Robert J. Tiess 

Middletown, NY 

14 COLOR 0,1 : COLOR 4,1 : COLOR 5,12 

16 GRAPHIC 0,1 : C=0 : Z=0 : B=0 : U=0 

18 INPUT "HORIZONTAL AXIS";H 

20 INPUT "VERTICAL AXIS";V 

22 INPUT "VIEWING ANGLE TO 360" ;P 

24 RA=57.2957 

26 NT=90 

28 NF=95 

30 0T=120 

32 TS=127 

34 E=8 

36 FOR 1=1 TO 90 : NEXT 

38 P=P / RA 

40 GRAPHIC 1,1 

42 IF V >- H THEN M=V 

44 IF H > V THEN M=H 

46 Z=Z+H * (E/M) 

48 B=B+V * (E/M) 

50 X=INT((SIN(Z/RA+P)*0T)+TS) 

52 Y=INT(CSIN(B/RA)*NT)4NF):IF U-0 THEN 

LOCATE X,Y : U=l 

54 C=C+1 

56 IF C=< 4 THEN 64 

58 DRAWTO X,Y 

60 GETA$ : IF A$=" "THEN 68 

62 GOTO 46 

64 DRAWTO X.Y 

66 GOTO 46 

68 GRAPHIC 0,1 

70 GOTO 16 

COLORFUL 64 

If you think the Commodore's 16 colors aren't enough, 
you may like this. This short program will allow you to 
use 29 different background colors. It creates a custom char- 
acter in the shape of a checkerboard. When this character 
is printed, it will blend with the background to make a new 
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PRINTERS 



DISKETTES 



Sony DSDD5V4" $ 9,97 

Memorex DSDD 5'/*" $ B.97 

Precision DSDD 5'A" S 7.97 

Bonus by Verbatim DSDD 5V»"I 6.97 

Sony 3ft* DSDD $ 25.S0 

Sony 3ft" SSDD $ 19.50 

Winners 3vi" DSDD $ 24.00 



SOFTWARE CLOSEOUTS 



Zoris I 

Zoritll 

Zoric III. 

Re Now 

Calc Now 

Frojger 

Q Bert 

Popeye 

Multiplan 

Triad 

Battlezons . . . 

Robotron 

Rack-Em Up . 



4,77 

4.77 

4.77 

7.77 

7.77 

7.77 

7.77 

7.77 

$29.77 

t 4.77 

. J 7.77 

. $ 7.77 

S 6.77 



CCESS 



Maori S S 22.50 

Mach 12B .....I 29.90 

Leader Board $ 23.90 

Tournament Disk J 12.90 



Aerojet S 20.77 

F15 Slrika Eagle $ 19.47 

Conflict in Vlelnam 5 19.47 

Gunship S 22.77 

Silent Service t 24.77 

Certificate Maker S 29,90 

Newsroom . , $ 29.00 

Clip Art I $ 18.90 

Clip Art II S 22.00 

f ' 

■ IRDE1 

1-800-233-6345 



Okimate 10 1124.77 

Okimate 20 1134.77 

Plug-N-Print C64 $ S9.77 

Plug-N-Print Amiga $ 69,77 

Panasonic 1091 S224.77 

Panasonic 1080 S!99.77 

Star NX 10 $239.77 

Slar SG10C (226.77 

Okimale 120 $224.77 

Epson LX80 $239.90 

Epson FXBS S369.90 

Epson FX 266 $479.90 

VIC 1525 Graphics Printer $ 99.90 

MPS S03 Printer $109,90 

C 1600 300 Baud Modem $37.90 

Commodore Plus/4 $ 79.90 



TIMEWORKS 



Sylvia Porter's 

Personal Finance $39,90 

Data Manager 128 S 37.77 

Swiftcalc 128 w/Sideways $ 37,77 

Wordwriter 12B w/Spell Check. $ 37.77 
Partner 128 J 37.77 

All Four S149.90 

Dala Manager S 27.77 

Wordwrrler ; 27,77 

SwiftCalc S 27.77 

All Three SI 39.77 

Pockel Writer 64 S 23.77 

Pockel Wriler 128 $ 26.77 

Pocket Planner 64 $ 23.77 

Pockel Planner 128..... S 26.77 

Pockel Filer 64 S 23.77 

Pocket Filer 12 1 28.77 



MONITORS 


Samsung 14" Color 

Samsung Green 12" 

80 Col. Cable 

Monitor Cable 

NEC 12" Color 


..$139.90 
I 49.90 
$ 8.77 
$ 5.77 

. $134,90 




JOYSTICKS & ACCESSORIES 


WCO The Boss ... 
WICO Ball 

WKO 3 Way 

Kraft 


S 10.77 
$ 14.77 
S 18.77 
. $ 6.77 


S'A " Drive Cleaner 

3>/i" Drive Cleaner 

CRT Cleaner 


S 6.77 
S 7.77 
$ 14.77 


C64 Cover 

C128 Cover , 

Drive Cover ST 

Printer Head Cleaner 


$ 6.77 
$ 7.77 
$ 7.77 
$ 7.77 



I 800-233 6345 

226 Lincoln Road Miami Beach, FL 33139 



C128 Computer . . . $259.90 

C1571 Disk Drive .. 3239.90 

MPS 1200 Printer $249.90 

C1902 Monitor $288.00 

C1350 Mouse S 37.90 

C1660 300 Baud Modem $ 49.90 

C1670 1200 Baud Modem SI 48.90 

C64 Computer S139.90 

64C Computer S CALL 
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Koala Pad 
By Koala Technologies 



S 39.77 



Championship Wrestling $ 23.90 

Word Games S 23.90 

Supper Cycle $ 23.77 

Summer Games $23.90 

Summer Games II $ 23.90 

Winler Games $ 23,90 

Fasl Load $ 23.90 

Multiplan S 39.90 

World Karate Champ $ 17,90 

Worlds Grealest Baseball $ 22.90 

Koronis Rift $ 22,90 

Eidolon S 22,90 



DIGITAL SOLUTIONS 



Assembler Monitor . . S 24.99 

Basic 128 $ 39.99 

Basic 64 S 24.99 

Cadpak 126 $ 39.99 

Cadpak64 $ 27.99 

Chartpak 128 $ 27.99 

Charlpak 64 $ 24.99 

Cobol $ 27.00 

Forth $ 26.90 

Powerplan $ 26.90 

Quick Copy 2.0 $ 14.90 



Super C Compiler 
Super Pascal 

T.A S 

Video Basic 
XPER 



.1 39.90 
.1 39.90 
S 39.90 
S 27.90 
$ 39.90 



MASTERTRONIC 



Last V8 $ 

5 A Side $ 

Slugger $ 

Paul Macartney $ 

BMX Racer S 

Sky Jet $ 

Line Action Biker . $ 

Skiwriler $ 11.99 

Busicalc3 $ 11.99 

Instant Recall $ 1 1 .99 

■ All 3 S 29.97 



6,49 
6.49 
6.49 
6,49 
6.49 
6,49 
6.49 



Ace of Aces $ 

Dam Busters $ 



19.90 
17.90 



SUBLOGIC 



Jet $ 25.70 

Flight Simulator II $31.70 

See nary Disks 1-6 $ 13,70 EA • 

Scenery Disk 7-12 S13.70EA. 

Scenery Disks 6 Pack .$ 69.70 



BATTERIES INCLUDED 



Call tor Pricing 
...IN STOCK... 



Consultant . 
Paperclip 

Paperclip w/Spell . 



$ 35.77 
$ 35.97 
S 47.77 



Frgbl Night $ 17,90 

Hardball $ 17.90 

Law of the West $ 17.90 



SRODERBUND 



Karateka $ 17.00 

Prinlshop ,. S 25.90 

LIB 1/2/3 $ 14.90 

Companion . S 24.90 

Bank Si. Writer S 32.90 



S 47.77 

.$ 47.77 

| 52.77 

S 52.77 



Superbase 64 

Superscript 64 , 
Superbase 128 

Superscript 128 



CUSTOMER SERVICE OR IN FLORIDA (305) 538-1364 

FREE FREIGHT ON ALL ORDERS WITHIN CONTINENTAL U.S. OVER S100.00 

Orders under $100.00 add $4 00 shipping and handling, COD orders add $4.00. 
Pricos ratlact a 3% cash discount , A. P.O., F.P.O. orders add 6% shipping & handling. Postal orders shipped surlaco 
Add 6% lor air shipment. Add 3% lor VISA/MC. Florida residents ndd 5% sales lax Personni checks allow 2 weeks lor processing. 

Prices Sub|OCT IO Change Withour Noltco 

ORDERS RECEIVED BEFORE 12:00 PM WILL BE SHIPPED SAME DAY. 
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EMERALD COMPONENTS INTERNATIONAL 



DISK DRIVES 



FSD-2 

EXCELERATOR PLUS 

Commodore Compatible 

DISK DRIVE 



Direct Drive! 

Faster, Quieter 

and More Reliable. 

Full One-Year Warranty, 



,. . ut» • 



$159 



COMMODORE 1541 DISK DRIVE 




$142 



COMMODORE 1541C DISK DRIVE 



*»*-*«**># 'WWII 



y*«iJt;p 




$169 



HARDWARE & ACCESSORIES 



COMMODORE 64 
COMPUTER 



$129 



«48f ff»4 



t 11 I II I I ^, 



* ■ ' — - 

'"■,■ - 

4 .* • 



With specially priced 
software package 



COMMODORE 
POWER SUPPLY 




MODEM 

300 Baud 



$28 



SAVE OVER S70! 



MOUSE 



$36 



HEAD CLEANING 

KIT S& 



$1195 




JOYSTICK 



by.yt) 




ALL MAJOR CREDIT CARDS ACCEPTED 




£$ 



6 AM TO 6 PM 
6 DAYS A WEEK 



Emerald Components International 
P.O. Box 1441 / Eugene, OR 97440 

In Ore., Call: 503-683-1154 

Customer Service: 503-683-1154 

For further information, contact your local Commodore dealer. 



1-800-356-5178 
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shade. If you print it in red, you will have a dark red, be- 
cause the checkerboard will let some of the background 
color come through. 

When you run the program, all this will seem a lot clear- 
er. The program will print out 29 different colors, includ- 
ing 8 shades of gray, 6 shades of red, and 4 shades of green. 
If you fool around with different background and text colors, 
you can create some interesting combinations. 

When you first run the program, you will have to wait 
about a minute while it transfers the character data. 

— Chris Jones 
Oak Ridge, TN 

■5 PRINT" [ CLEAR ][ HOME ]L0ADING DATA[3"."]" 

: POKE52,48:POKE56,48:CLR 
•10 P0KE56334, PEEK (56334)AND254:P0KE1 , PEE 

K(1)AND251:F0RI=0 TO 2040 
■ 15 P0KE( 12288+1) ,PEEK( 53248+1) : NEXT: POKE 

l,PEEK(l)OR4:POKE56334,PEEK( 56334 )0R1 
•20 POKE53272.C PEEK ( 53272 )AND240)+12 
•25 F0RG=0T07:READ A: POKE 13080+G, A: NEXT 
•30 POKE53281,0:P0KE53280,0 
•35 PRINT"[CLEAR][WHITE]29 POSSIBLE COLOR 

S" 
•40 PRINT" [5" "][WHTTE][RVS0N][5" "][RVS0 

FF][RED][5"[c T]"][BLUE][5"[c T]"][PURPL 

E][5"[c T]"][GREEN][5"[c T]"J [YELL0W][5" 

[c T]"]" 
•45 PRINT"[c 4][5"[c T]"][5" "][c 3][5"[c 
T]"][c 7][5 M [c T]"][PURPLE][RVS0N][5" " 

][RVS0FF][c 6][5"[c T]"] [YELLOW] [RVS0N] [ 

5" "][RVS0FF]" 

•50 PRINT"[c 5][5"[c T]"J[5" "][c l][5"[c 
T]"][CYAN][5"[c T]"][5" "] [GREEN] [RVS0N 

][5" "][RVS0FF]" 
•55 PRINT"[c 8][5"[c T]"][5" "][RED][RVS0 

N][5" "][BLUE][5" "][RVS0FF][5" "][c 6][ 

RVS0N][5" "]" 
•60 PRINT"[WHITE][5"[c T]"][5" "][c 3][RV 

SON][5" "][c 7][5" "][RVS0FF][5" "]" 
■65 PRINT" [c 4][RVSON][5" "][RVS0FF][5" " 

][c 1][RVS0N][5" "][CYAN][5" "]" 
•70 PRINT" [c 5][RVS0N][5" "] [RVS0FF] [5" " 

][c 2][RVS0N][5" "][RVS0FF]" 
•75 PRINT" (c 8][RVS0N][5" "][RVS0FF]" 
•80 PRINT"[H0ME][11"[D0WN] M ]" 
•85 PRINT" [WHITE]8 GRAYS 7 REDS 6 BLUES 

2 PURPLES" 
•90 PRINT"4 GREENS 2 YELLOWS" 
•95 DATA 85,170,85,170,85,170,85,170 

CHASER MARQUEE 

Would you believe a 12-line program that creates a mar- 
quee of chasing lights around the border of the screen? 

You can make your own in assembly language, or you 
can tack this nifty little routine 1 created onto the begin- 
ning of any BASIC program to add a touch of class. 

The routine uses extended background color mode, so 
you are limited to the First 64 characters for your titling. 



The FOR-NEXT loop in line 130 is a delay loop; changing 
the value of "X" will control the speed at which the lights 
run around the perimeter. You can also POKE values other 
than red and white into the color registers in line 90 for 
different effects. Try gray and white or two blacks and a 
bright color for neat variations. There are three registers, 
and the colors you POKE into them will chase after one 
another around the edge until you push any key to contin- 
ue with the rest of the program. 

A must-have for onscreen board games or displays! 

— Cleve Blakemore 
Richmond, VA 

■ 10 PRINTCHR$ ( 147) : V=53248 : P0KEV+32 , : POK 
EV+33,0 

■ 20 FORX=0T037STEP3 : P0KE1024+X , 64+32 : POKE 
1024+X+l , 128+32: P0KE1024+X+2 , 192+32 

-30 P0KE1984+X, 192+32 :POKE1984+X+l , 128+32 

;P0KE1984+X+2, 64+32 
•40 NEXT 

•50 FORX=OT022STEP3 
•60 POK El 024+X*40,l 92+32 :P0KE1024+(X+1)*4 

0, 128+32 :P0K£1024+(X+2)#40, 64+32 
■70 P0KE1063+X*40,64+32:P0KE1063+(X+1)*40 

, 128+32: POKE1063+(X+2)*40, 192+32 
■80 NEXT : POK E20 2 3, 12 8+3 2 
•90 POKEV+17,PEEK(V+17)0R64:P0KEV+34,l:PO 

KEV+35,2:P0KEV+36,2 

• 100 POKE214 , 7 : PRINT: PRINTTABC 12 )CHR$(31 ) 
"YOUR TITLE HERE" 

•110 A=PEEK(V+34):B=PEEK(V+35):C=PEEK(V+3 
6) 
•120 P0KEV+34,C:P0KEV+35,A:P0KEV+36,B 

• 130 GETA$ : IFA$=""THENF0RX=1T075: NEXT: GOT 
0110 

NUMBER ROUNDING 

While writing antenna designer programs I became frus- 
trated with trying to insert numbers into lines of text. Al- 
most invariably the numbers would have 5 or more decimal 
places, making it impossible to maintain neat lines. Since 
such accuracy is neither necessary nor possible to main- 
tain when cutting the antenna, I began to look lor a way 
to round those numbers to one or two decimal places. The 
integer function provides an easy way to round a number 
down to the next lowest whole number. The expression A= 
INT(A+.5) will round to the nearest whole number. Round- 
ing to one decimal place then becomes A=INT{A' , '10+.5)/10. 
This formula can be extended to round to as many decimal 
places as desired. The short program below will calculate 
the correct length of a half wave dipole antenna and round 
that length to one, two, and three decimal places. 

— Henry F, Smith 
APO Miami, FL 

■10 REM NUMBER ROUNDER 

■20 PRINT" [CLEAR] [DOWN] [DOWN] [8" "][RVS0N 

]HALF WAVE DIPOLE DESIGNER [RVS0FF]" 
■30 INPUT" [DOWN] FREQUENCY IN MHZ ";FR 
•40 A=468/FR 
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BULL'S-EYE 



SO GOOD, 
EVEN WE CANT BELIEVE IT. 



Think ol Lhfl best disks in your library; the very best 
ones, the cream of the crop, Chances are. ! hose are 

the same disks lhat you haven't been able to back 

up. Until now. 

lULL't-iTi was created For only one reason; to 
back up the impossible- To archive the programs 
thai are protected willi the newest, touches) 
routines On the market, 

Wed like to go into more detail but we cant— these 
titles are so hot, we can'l mention their names in 
this ad. But you know the ones we mean. Just think 
ol the biggssl names m soil ware Think ol the most 
complex and elective protection schemes you've 
ever run up against Now think ol the very best 
archival software on ihe market today. . . 

BrjLL'3-ETX— trorn Kracktr J*i. 



ONLY $19.95 



KRAGKER J AX 

A REVOLUTION IN 
ARCHIVAL SOFTWARE! 

Kracktr Jax is Ihe powerlgl parameter copy system 
that Is taking the country by storm' What IS a 
parameter! It's a custom program that allows your 
1541 or 1571 disk drive to ship all copy protection 
Irom your expensive soltware. leaving you wilh 
UNPROTECTED, TOTALLY BROKEN Back-ups that 
can even be copied with a simple last copier. 

• Eraclitr Jtx is the BEST program ot its kind! 

• Erackar Ju will back up titles that the nibblers 
CANT! 

• Knctcer Jax requires NO special knowledge to 
operate! 

• Kracktr Ju strips protection In a matter ot 
SECONDS! 

• Kracktr J»i is priced RIGHT— |USt 119.95 per 
Volume. 

■ Kracktr Jax IS UNPROTECTED— easy to back up! 

■ Kracktr j.i updates are available QUARTERLY I 

VOLUME FIVE INCLUDES A POWERFUL 
NEW C64rC128 FAST COPIER! 

ALL NEW VOLUME FIVE 

VOL 1-4 STILL AVAILABLE. 
ONLY S19.S5 EACH! 
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^^ HACKER'S 
UTILITY KIT 



Are you ready to take control of your software? Lei 
us helpl Our Hackiri VtUJIy Kli contains the most 
Impressive array ol tools ever assembled in a single 
package! You get: 

• WHOLE DISK USAGE/ERROR, DENSITY 
SCANNER — gel needed fnlo tost' 

• OCR EDITOR— view raw data the way your 
computer reads It! 

■ FAST DATA COPIER— won 1 write errors! 

• 1 OR 2 DRIVE N1BBLER— state of the artL 

• FILE TRACK AND SECTOR TRACER-find any 
sector link in a file fast? 

• BYTE PATTERN FINDER -scan the disk for any 
pattern you choose! 

• CUSTOM COPIER CREATOR -Ihe only one ol Its 
kind! 

• RELOCATABLE MJL MONITORS— Including drive 
monitor? 

■ FAST FORMATTER— programmable tracks or 
whole disk! 

• DISK FILE LOG-qji = ti y linrj file start and end 
addresses! 

So Mow good is this package? Just remember that 
it's put out by Xraetter Jtx, the people who live at 
the cutting edge of archival technology That's how 

B00d,ll3! ONLY$19.95 



KRAGKER JAX REVEALED! THE BOOK 

At East— Kracktr Ju takes you beyond the protection barrier. The secrets of urv 

prolecting software are yours with Kracktr Ju revealed! 

We'll show you exactly how to defeat five different protection schemes 

encompassing scores of current programs. Our tutonai has twenty specific 

examples to lead you step by step, to a new level of knowledge. Here's what you 

get: 

■ Kracktr I u revealed. * A reset switch. • A utility disk. • 20 parameters on disk. 



ONLY $23.50 COMPLETE! 

Please allow (wo weeks lor delivery. 



THE SHOTGUN 



Those of you who have used our Kracktr J*m paramelers know lust how good 
they are. Can you imagine Ihe kind of nibbler we could put out? Well, you don't 
have to imagine it because it's HERE! thk SHOTGun, our new premium nibble? 
utility, is available two ways: 

• thb 3HOTOUH by itself— oflered to you at the unheard ol introductory price of 
only su gs 1 

• THX LOADED SHOTOOM- Packaged WITH 32 of Ihe most popular Kracktr 
4*x parameters ever created— only J19 95!! 

Whichever version you order, you It lind Tin shoiciiitj lo be loyal lo the Kfacfctr 
J*» tradition ol more quality for loss money. 



THE C-1S38 CANNON 



Here's the package you C-12B owners have been 
waLting for! The c na cam voir gives you more power 
than you ever hoped for! Just look at some ol these 
capabilities: 

• NIBBLER-Works with single or dual 1571/1541 
drives! 

■ FAST COPIER— Great for data disks Or use with 

ICriCker Jul 

■ FILE COPIER— Makes lite maintenance and ma 
nipulation easy! 

- 1581 FAST COPIER — For use with the new high 
speed 3.5* drive! 

• 1531 FILE COPIER— For high speed file manipu- 
lation! 

» MFM COPIER— Copies unprotected IBM and CP.M 

disks! 
•TVS EDfTOfl-Works w,th 1541, 1571. and Ihe now 

1581 drives! 

• ERROR SCANNER — Complete with onscreen 
display! 

- DENSITY SCANNER— Check lor altered densities 
track by track! 

- DIRECTORY EDITOR— Alter & organize your disk 
directories! 

■ K&ACKK1 JAX— You also get 100 of our most 
popular parameters! 

You've seen nibblers alone that sold for thirty-live or 
forty dollars And Ihe 100 Kracktr J'** parameters are 
a twenty dollar value Yet Ihe ENTIRE C-1U CUIDI 
utility package sella for lust $34.95. Never before has 
this much power and control been integrated Into a 
single* affordable product. If you own a C 128, you 
deserve The C-lla GkmmOml 



C-128 owners, this Is the package 
of your dreams— only $34.95 
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THE GRAPHIC LABEL WIZARD 



No, we don t have the ttrst graphic label utility on the market— but we have the best one! Without doubt, the 
Wizard is the hottest graphic label program around 1 Check out some of these features; 

* Use Pnnt Shop* Print Master, or your own custom graphics! • Prtnt a graphic & up to hnes ol text on a 
standard label! * Uses pop -up menus/includes extra graph I craves labels onto disk! * Works with both Epson 
& Commodore compatible dot-matrix printers! * Will print different text styles & sizes on appropriate printers! 

• Hires preview ol up (0 4 dlflerent graphics on screen al one lime 1 * Machine language programming for ultra- 
fast speed and l legibility! • Special CATALOG lealure lets you print titled display 3 nee is ol your Print Shop. 
Prlntmaster. and custom graphics— with up to 2fi high-res graphics per page! 

And these are just some ot Ihe things that the Oraptilei Lab*, wliard can do! So the next time your custom 
labels need a special touch. Just summon up a little magic — horn the Wizard. 

ONLY $24.95 



THE MSD DUAL CANNON 

USD owners aren't led out in trie cold anymore! The all new MID DOAi. CAjrao* gives you slain ol the art 

control over your advanced equipment! You net: 

• A NIBBLER— (or backing up your protected programs! -A FILE COPIER— lor easy lite maintenance and 

manipulation! • A SECTOR EDITOR— developed ju3t tor Ihe MSD dual drive! • FAST COPIER-lhat WON'T 

transfer errors — period lor use with date disk or Kracktr Jaa parameters! * AUTO MODE— drive can copy 

without computer connected! ■ SPECIAL BONUS— you gel 32 free mttn Jut paramelers! 

Start getting the tull performance lhat your MSD drives are capable of delivering. You already know you own 

ihe finest drives available— so why settle lor anything less than the beet utilities made lor ihem? 

Get the most out of your special equipment— only $34.95! 



SUPER OAT 



It you had the lime and skill to create your own cuslom disK catalog system, the paramount system of your 
wildest dreams. It probably STILL wouldn't have all the features of tnin cur For example: * Catalog up to 
W0 disk directories— 1280 with 2 drives! ■ Index & alphabetize over 5000 Miles— 10000 with 2 drives! * Unique 
IDs are NOT necessaryl/A printer is NOT required! • Find ANY title in 10 seconds— sort 1000 titles in 8 
seconds! * Automatic entry with Selection, Edit, and Cross Rof. options! 

sum CAT has literally too many features to lit In here. From ihe easy, menu driven work screens lo the 
comprehensive output options. SUPER CAT is the most poworlul and complete disk catalog system available 
today! 

The ultimate software library Index system —only $24.99 



BASIC PROGRAMMERS— CONTACT US ABOUT "ON-LINE HELP!" 



COMPUTER mart 



Neea more i mo' Can ot 
write lor our tree catalog 



P'ogram suDmrssions wanlett' 
Good Commissions— 
Nalional Marketing 



CHECKS. MONEY ORDERS OH VISA/MASTERCARD 
Man your grrjti to Computer Mart Depl I 
2700 NE Anaresen Road/ Vancouver. WA 93661 
Prions oraers welcome- 206-695-1393 
Same Day sttipping/No C.O.D. orders outside U.S. 






PLEASE NOTE: Free shipping & handling on all orders * C.O.D. add S3.00 lo total order* All orders must be paid in U.S. fundi. 

DEALERS— WE HAVE THE SUPPORT YOU'RE LOOKING FOR! 
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ATTENTION C-128 OWNERS! 



FEEL NEGLECTED? 

NO 80-COLUMN GRAPHICS 

SOFTWARE? 

The Commodore C-128 is Ihe most powerlul and flexible 8-bit 
microcomputer yet released to Ihe public Unfortunately, there is 
little software available for its native 80-Column mode; and most of 
that is Productivity software using only the Text Character Display, 
not the true 80-Column Hi-Res Graphic Display which the 
machine is capable of producing. 

Commodore originally intended Ihe C-128's 8563 Video Display 
Chip lo support 80-Columns only in Text mode, not Graphics 
Whilestandard C-128 Basic takes lull advantaged ihe 4Q-Column 
graphics capability ol the machine, there is almost nothing which 
allows the Basic programmer access to the 80-Column Graphics 
mode (Yes. there is an 80-Column Graphics mode!]. 

TIRED OF WAITING FOR YOUR 128 TO 
COME ALIVE? WAIT NO MORE. 
BASIC 8 IS HERE! 

Patech Software is proud lo introduce Basic B with Basic Paint, 
the first C-128 software package specifically designed to unleash 
the hidden graphics potential of your Commodore C-128. Using a 
special wedge technique, Basic 8 achieves performance rivaling 
that of 16-bit micros' Imagine your 128 producing resolution of 
640 x 200 in monochrome and 640 x 192 in 16 colors without 
additional hardware 1 Basic 8 provides the Basic programmer with 
the most powerful and productive graphics system ever devel- 
oped lor an 8-bil microcomputer! 

A NEW HI-RES 3-D GRAPHICS 
LANGUAGE FOR THE C-128 

Basics adds over 50Hi-Res graphics commands to Basic 7,0 and 
is completely compatible with its advanced non-graphic com- 
mands. You work in a true 3-Dimensional environment, conlrol- 
hng such parameters as perspective, viewing angles and the 
origin & deplh of the view. Just select one ol many graphics 
modes and draw 3-D lines, dots, circles, boxes, variable arcs and 
a multitude of complex solid shapes with a single command, 
Switch easily between any of the 32 pre-defined graphic screens. 
scroll a screen, save and load multiple screens as brushes, define 
a logo, paint wilh exotic color patterns of your own design and 
print hard copy of your screens in various sizes and in color! 
We've even added commands for graphic cut & paste functions. 
brushes, windows and fonts along with ultra-sophisticated con- 
ceptslike multidraw, grow, shearing, scaling and much, much, more. 
More than a mere extension of Basic 7.0 - Basic 8 is a total 
Development System which provides a whole new and exciting 
programming environment. Chances are that if your graphic 
imagination can see il. Basic 8 will let you do it! 



UNHEARD-OF RESOLUTION AND 
STUNNING COLOR DISPLAYS ON YOUR 
C-128! 

Pixel Resolution (screen sue) and Color Resolution (color cell 
size) are determined by available Video RAM, The C-128 has 16K. 
This can be upgraded to Ihe 64K of the C-128D 
The unexpanded C-128 produces a full 640 x 200 screen in 
monochrome and a maxrmum of 640 x 192 m color with an 8 x 16 
dot cell Increasing color resoluhon (smaller cell) decreases 
screen heighl. (Dol size remains Ihe same throughout.) The most 
uselul screen is 640 x 176 with an 8 x 8 cell That's still pretty 
impressive 1 (The C-64 has 320 x 200 with the same cell.) If you use 
a 640 x 152. you can double the color resolution to 8 x 4, The 
resulting displays are absolutely stunning! 
The 64K Video RAM allows the full 640 x 200 screen with an 8 x 2 
cell (we doubled il again, this time with a full screen!) Several such 
screens can reside in Video RAM simultaneously, each with dif- 
ferent resolutions You can view one screen while working on 
anolher and create Virtual Screens (larger than the displayable 
640 x 200) in Video RAM. 

BASIC PAINT - AN 80-COLUMN COLOR 
DRAWING PROGRAM! 

To demonstrate the power and versatility ol this new graphics 
language, we have created Basic Paint, a flexible icon-based, 
mouse driven, 80-Column color drawing application with menus, 
fonts, brushes, patterns and requestors Basic Paint is written in 
Basic 8. so that screens you create with it may be saved for use in 
your programs 

BASIC 8 GROWS WITH YOUR SYSTEM 

Basic 8 supports all C-128 hardware upgrades and expanders. 
Each time you up-grade your system, Basic 8 is ready and waiting 
with even more graphic power than ever! 

Special printing features include color printing, 9Q C rotatable 
screens and variable dot density selection The 64K Video RAM adds 
printing oleniire Virtual Screens with the lull page being dot address- 
able Results are limited only by the capabilities of your printer. 

• •ALL THIS GRAPHICS POTENTIAL •• 

IS YOURS AT THE INTRODUCTORY 

PRICE OF $39.95 

Incl udes: A 180-page Users Manual, the unprotected Basic B 
Program Disk which creates Basic B Work Disks (with complete 
Editor System). Basic Paint Work Disks and Basic 8 RunTime 
Disks (lets you load and run your creations independent of Basic B 

using the included WORKBENCH utility), 

Requires: C-128 or 12SD. 80-Column RGB Monitor & at least one 

Commodore compalible Disk Drive. 

Supports: Expanded Video RAM (to 64K), Both RAM Expanders. 

The 1351 Proportional Mouse, Joysticks and mosl Dot Matrix Printers 



BECOME A PUBLISHED SOFTWARE DEVELOPERI ENTER THE BASIC B 
PROGRAMMING CONTEST. WIN THE GRAND PRIZE OF S1.000.00 AND 
PATECH SOFTWARE WILL PUBLISH YOUR PROGRAM! Three Other Cash 
Prizes To Be Awarded. Details Included In The Basic B Package. 



Mai! your order lo 

Compiler Man. Depl S • 2700 ME Andresen fload • Vancouver. WA 98661 

Phone orders welcome 206-695-1393 

Same day shipping/No CO □ orders oulside U S 

CHECKS. MONEV ORDERS OR VISA/MASTERCARD. 

PLEASE NOTE: Free shipping & handling on all orders • C.O.D. add S3.Q0 

to tolal order • All orders must be paid in U.S. lunds 
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•50 REM ROUND TO TENTHS 

•60 B=INT(A*10+.5)/10 

•70 REM ROUND TO HUNDREDTHS 

•80 C=INT(A*100+.5)/100 

•90 REM ROUND TO THOUSANDTHS 

• 100 D=INT ( A* 1 000+ . 5 ) /1000 

•110 PRINT" DIPOLE LENGTH IS [7" "]"A" FEE 

frill 

•120 PRINT" ROUNDED TO TENTHS [6" "]"B"[3" 

"]FEET" 
•130 PRINT" ROUNDED TO HENDREDTHS "C" F 

EET" 
•140 PRINT" ROUNDED TO THOUSANDTHS "D" FE 

ET" 

RESET TO 64 MODE 

The reset switch on the C-128 is a very nice feature, es- 
pecially in the C-64 mode where you must perform a reset 
to gain control of the machine after using many commer- 
cially available software titles. Unfortunately, however, in 
order to go back to the C-64 mode, you must also hold 
down the COMMODORE key while pressing the reset 
switch. Since my family only uses the C-64 side of the com- 
puter, they felt it was an inconvenience to press both the 
COMMODORE key and the reset switch. So I wrote the 
program below, saved it on disk as "RESET TO 64 MODE". 
and told them to enter (from the C-128 mode): RUN-RE- 



SET TO 64 MODE", 

When the program is run, it will GOTO the 64 mode. 
But more important, only the reset switch need be pressed 
to return to the 64 mode. -Shawn K. Smith 

Bronx, NY 

•0 REM RESET TO C6A BY SHAWN K. SMITH 
• 1 BANK1 : P0KE65528 , 77 : POKE65529 , 255 : G064 

FREE 'N EASY 

It's definitely handy to be able to check the bytes free 
on your 64, especially when using memory-eating monsters 
like arrays. As you know, PRINTFRE(O) is built into the 
machine for keeping track of memory usage. Unfortunate- 
ly it has two drawbacks. First of all, if you have more than 
32767 bytes free, the 64 merrily displays a negative num- 
ber. When this happens, you'll have to type PRINTFRE(O)- 
65536*{FRE(0)<0) in order to get an accurate reading. 
Secondly, if you check the bytes free with relentless regu- 
larity, your poor fingers will be worn to a frazzle in no time. 
There is a better way. Free h Easy quickly and accurately 
displays the bytes free, no matter what their number. 

After saving a copy of Free 'n Easy, run it. This POKEs 
the data into memory. To switch it on, type SYS700, then 
press RETURN. You switch it off the same way. The First 
SYS turns it on, the second turns it off, etc. Now you can 
load, save, and work on whatever you want. 

Continued on page 98 



THEY'VE DONE IT A GAIN I 



The programmers who created Snapshot 64. the hottest "memory cap- 
ture" utility on the market, have done it again! Introducing SUPER 
SNAPSHOT, the ultimate cartridge for the C64/C128, 

SUPER SNAPSHOT combines several different functions into one revo- 
lutionary new cartridge. First and foremost. SUPER SNAPSHOT is a state- 
of-the-art memory capture device. This means that you can load a program 
into your computer's RAM and, at the touch of a button, capture an exact 
Image of your computer's memory. That image can then be saved to disk, 
allowing you to make working. UNPROTECTED backups of your software! 
And that's just the beginning— here're some of the highlights of this Incredible cartridge: 




• The special built in DOS wedge commands will support devices 8, 
9, 10 and 11, 

• Our ROM-based machine language monitor will NOT corrupt memory! 

• Unique RESUME feature lets you Nip in and out ol running programs! 

• Hi-res screen dump works with 1525, 1526, & compatibles like Epson 
& Gemini! 

• SUPER SNAPSHOT also works with all atter market disk drives tested to 
date, such as the MSD, FSO, Enhancer, and more. 

• Special Bonus: 40 FREE customed designed Kracker Jax parameters complete with fast copier. 
Why buy a separate cartridge for each major function? A fast loader cartridge. A machine language monitor, A screen 
dump. DOS wedge commands. A memory capture utility. What would it cost for four or five cartridges, not to mention an ex- 
pansion board to hold them all? Thanks to SUPER SNAPSHOT, you'll never have to find out! SPECIAL OFFER FOR SNAP- 
SHOT 64 OWNERS: Send us your working Snapshot 64 cartridge (with the original owner's manual AND the function key 
overlay card} in good, working condition with your order for a $10.00 discount off the price of the new SUPER SNAPSHOT! 
This offer applies only to direct orders. sup£R SNApSH0T ^Q^y $ ^ Q5 



• SUPER SNAPSHOT works on the C64 or the 0126 In the 64 mode! 

• Will copy 99.9% ol all memory resident software on Ihe market today! 

• SUPER SNAPSHOT files will run without the cartridge being plugged 
in! 

• No experience required thanks to our window driven user menus! 

• Allows you to combine several ditlerent programs onlo a single disk! 

• 24K on board—easily expandable to 40X with plug in EPROM's! 

• Our TurboDOS is the mosl compatible last loader we've ever tested! 



QCMPITEP MART 



Need mote into'' Call at 
write lor our Iree catalog 



DEALERS— Don't miss Out 
on this one— CALL! 



CHECKS, MONEY 0HDERS OR VISA/MASTERCARD. 

Mail your order to. Computer Marl 
2700 NE Andresen Roari/ Vancouver, WA 98S61 
Phone orders welcome: 206-695-1393 
Same day shipping 



PLEASE NOTE- Free •hipping & handling on ill ordaia. • COD ordart mull add $3.00 to total ordar. WA raildants muat add 7.3% sales tai. 
Sonv no COD ordurs accapt»d tram oulalda lha U.S. * All oida™ mull ba paid In U.S. hjrtda. ■ Ovaraaaa orders please add S5.00 par unIL 
Canadian! may ordar from: Ma rah view Soltwam, P.O. Box 1212. Sackvllla, N.B, E0A 3C0 
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CHAMPIONSHIP BASEBALL 
GFL CHAMPIONSHIP FOOTBALL 

Gamester 

Amiga 

Disk; Baseball $39.95, Football $44.95 

Although other publishers produce 
action-strategy sports games, Gamestar 
has set the standard against which all 
other similar programs must be mea- 
sured. The company has now issued 
two of its best team sports titles for the 
Amiga. 

Although many notable designers 
and programmers have worked on 
Gamcstar's titles, including the pair dis- 
cussed here, much credit goes to the 
company's president and chief design- 
er, Scott Orr. His vision of what an ac- 
tion-strategy sports simulation should 
be transcends the details of any indi- 
vidual Gamestar disk program. 

As a group. Championship Baseball 
and GFL Championship Football are 
easy to learn, yet require practice to 
master. Both rely primarily on joystick 
or mouse order entry and employ mul- 
tiple screens to catch all the action and 
the strategy which underlies it. They 
both have superb animated graphics, 
thorough documentation, and tremen- 
dous replayability. 

These "family traits" guarantee that 
Gamestar creations will be good, solid 
entertainment. But it is their wealth of 
detail, special features, and ability to 
capture the essence of the sports which 
they simulate that make them great 
computer games. 

Championship Baseball brings new 
sophistication to arcade-style hardball . 
Although the user can play an exhibi- 
tion with a prefabricated team or take 
batting practice, options allow the arm- 
chair manager to field customized 
squads in a league play framework. 

Drafting a team is surprisingly pain- 
less. Menus give alternatives for each 
regular and pitcher, plus a small selec- 
tion of utility men. The hitting style 
(liner or slugger) is shown next to each 
fielder, along with his ratings for bat- 
ting, catching, running, and throwing. 
Pitchers have three ratings: speed, con- 
trol, and stamina. As a special kick, 
the computerist can name each team 



member. There's nothing like steam- 
rolling one of Championship Baseballs 
four divisions with a team of old girl- 
friends or lrangate conspirators. 

All this is only preamble to an out- 
standing action contest. A split-screen 
display shows an overhead view of the 
field on the left, and a close-up of the 
batter-pitcher confrontation from the 
catcher's viewpoint on the right. If the 
batter hits the ball, the field display fills 
the entire screen to facilitate catching 
the ball, throwing it to the right base, 
and controlling the runners. 

Holding the button and pushing the 
stick in one of eight directions orders 
one of eight pitching deliveries. The 
defensive manager in this one- or two- 
player game can toss fastball s, curves, 
sliders, screwballs, and knucklers. The 
offensive manager times the pitch and. 



Champion- 
ship Base- 
ball's split 
screen offers 
overhead and 
catcher's-eye 
views, chang- 
ing to a full 
field perspec- 
tive when the 
batter hits 
the ball. 
READER SER- 
VICE NO. 164 



Featured This Month: 

Championship Baseball 

GFL Championship Football 53 

Marauder II 54 

Amiga Trackball 57 

using the joystick, swings away or 
drops a bunt. 

While the ratings definitely color the 
action, hand-eye coordination and re- 
flexes dominate play. The joystick com- 
mand control scheme lets the onscreen 
players take leads, steal, pick off run- 
ners, slide into bases, and much more. 
Championship Baseball feels real and 
moves fast, two outstanding qualifica- 



GFL Cham- 
pionship 
Football's 
secondary 
screens pro- 
vide overall 
field view, 
but first per- 
son perspec- 
tive play exe- 
cution is the 
most notable. 
READER SER- 
VICE NO. 165 
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Re-ink ANY FABRIC RIBBON 
automatically for LESS THAN 
5 CENTS with 

MAC INKER 

Over 1 1 .000 
cartridges and 
spools 
supported! 

MAC INKER 

IMAGEWRITER I AND II $42.00 

UNIVERSAL (cartridge or spool) S68.50 

MULTICOLOR IMAGEWRITER SB0.0O 

MULTICOLOR ADAPTER ONLY S40.00 

Shipping (first unit) S3. 00 

■ Lubricated DM INK EXTENDS PRINT- 
HEAD LIFE! Black, blue, brown, red, green, 
yellow, purple, orange - 2 oz, bottle $3.00: 
pint S1B.50. Gold, silver, indelible and OCR 
inks available. Heal transfer Maclnkers and 
ink available plus a complete range of 
accessories for special applications, 

■ Top quality. GUARANTEED, double density 
ribbon cartridges and reloads available. 

■ DEDICATED MACINKERS AVAILABLE 
FOR EXTRA LARGE OR SPECIAL 
CARTRIDGES 




MERCURY MODEM 



$149.00 

Shipping $4.00 



100°= Hayes'" compatible 1 ■ 24 month 
warranty. ■ Status lighls. ■ Speaker. 
■ 300/1200 baud ■ Call progress detection. 

Quick Link communications software: 

MS DOS and Macintosh $29.95 

with modem $15.00 

Cable $15.00 

'Hayes is a trademark of Hayes MicioproducJs. 




A BUFFER AND A DATA SWITCH! 

PROTEUS 

The "Siamese' Buffer 
64K $199.00 

256K $299.00 

Cable $10.00 

Shipping S4.00 

■ Proteus direcls two printers (working 
simultaneously) and frees your computer for 
other applicatipns. 

■ Now you can merge a form letter with your 
mailing list, set up one printer with letterhead, 
the other with envelopes, press "START and 
RELAX while 

PROTEUS DOES IT ALL- 
ALL AT ONCE! 

■ Compact. ■ 2 parallel ports. ■ Multiple 
copy capability. ■ "Flexible Capacity'' buffer 
lor each port. 

J986 "Best Buy of the Year ' Award 1 - Computer 
Shopper 



SPECIAL OFFER: For orders 0/ SWO.OO Or 
more. Say you saw it in AHOY' and get a 
free keychain. beeper and flashlight 
combined! A 515.00 value! 



ORDER TOLL-FREE 
1-800-547-3303 

In Oregon (503) 626-2291 (24 hour line) 
We are and always will be your 

Computer 
Friends® 

14250 N.W. Science Park Drive 

Portland, OR 97229. Telex 4949559 

Dealer Inquiries Welcome. 
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tions for an action baseball simulation. 

GFL Championship Football can 
also simulate a season of league action, 
but its most notable innovation is the 
first-person perspective. The second- 
ary screens provide the overall field 
perspective needed to follow the flow 
of the game, but the real excitement is 
the dynamically animated play execu- 
tion screen. 

Before a team can run a play from 
scrimmage, the coach must call an of- 
fensive or defensive play for the next 
down. A pair of menus, one each for 
offense and defense, list the possibil- 
ities. Pushing the joystick highlights 
each choice in turn, and pushing the 
button locks in the command. 

Thai's when GFL Championship 
Football moves into overdrive. The 
graphics put the computcrist right on 
the field as the running back or receiv- 
er on offense. As a running back, for 
example, you take the handoff, scoot 
laterally behind your line of trusty 
computer-controlled blockers, and hit 
a hole or swing around end. You can 
snap the joystick handle to stiff-arm a 
would-be tackier, but unless your man 
scores a touchdown, a burly defender's 
lunge is the last thing you'll see before 
the whistle signals the end of the play. 

GFL Championship Footimil sounds 
even better than it looks, if that's pos- 
sible. Each play from scrimmage is a 
symphony of thundering footsteps, gar- 
gantuan grunts, and the teeth-rattling 
crunch of bodies colliding. 

Don't expect to breeze lo the league 
title the first time. GFL Championship 
Football is probably (he most demand- 
ing action sports simulation ever pro- 
duced. Yet if any computer game is 
worth a couple of hours of study, this 





is it. GFL Championship Football is a 
Super Bowl champion among action 
football titles. 

Aclivision, 2350 Bayshore Parkway, 
Mountain View, CA 94043 (phone: 415- 
960-0410). -Arnie Katz 

MARAUDER II 

Discovery Software International 

Amiga 

Price: $39.95 

Some things never change. No soon- 
er does a new computer appear on the 
market than it is followed by third-par- 
ty copy protected software. This soft- 
ware is immediately followed by a se- 
ries of copy programs designed to du- 
plicate the aforementioned copy pro- 
tected software and to give the users 
back their government-granted right to 
create archival copies of their owned 
software. 

More often than not, in what seems 
to be an exercise in contradiction, the 
copy programs themselves are copy 
protected. This of course prompts the 
producers of subsequent copy pro- 
grams to show their prowess by provid- 
ing the capabilities to copy the copy 
protected copy programs. And so on 
and so on. 

The Amiga has not escaped this syn- 
drome. From the day of its introduc- 
tion we have found copy protected soft- 
ware to be readily available. These pro- 
grams were closely followed by Marau- 
der from Discovery Software Interna- 
tional. In spite of its rather rambunc- 
tious name. Marauder did a reasonable 
job of copying the software available 
at the time. However, as the copy pro- 
tection on the Amiga matured, it was 
gradually left behind. 



Yes, that's a 
Workbench 
screen. To get 
it, boot up 
Marauder II, 
switch screens 
with the left- 
Amiga and n 
or m combo 
and pull down 
the Workbench 
screen a hair. 
READER SER- 
VICE NO. 166 
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Explore the Potential 
of Amiga! 




NEW YORK 
October 10-12, 1987 



LOS ANGELES 

January 22-24, 1988 

Featuring 



CHICAGO 

July 22-24, 1988 



Keynote Sessions 

Jay Miner, the Father of the Amiga™, will open 
the New York AmiEXPO. R. J. Mical, the 

Designer of Intuition, will provide insights into 
software development. 

Exhibition Hall 

A sampling of exhibitors: 

Activision, Inc. 

Amazing Computing 

Amigo Business Computers 

ASDGJnc. 

Brown-Wagh Publishing 

Byte by Byte 

Central Coast Software 

Computer Systems Associates 

Creative Microsystems, Inc. 

Firebird Licensees, Inc. 

Lattice, Inc. 

Liquid Light, Inc. 

Manx Software Systems 

Microillusions 

NewTek, Inc. 

New Horizons Software 

PiM Publications, Inc. 

Octree Software 

Word Perfect Corporation 



leading 
tag 



Amiga™ is a registered trademark of 
Commodore-Amiga, Inc. 



Development Forums 

Intensive working sessions with the 
Amiga developers, such as NewTek, detai 
specific products. 

User Seminars 

• The Architect's Amiga 

• Art Direction and the Amiga 

• The Amiga in Video Production 

• Amiga MIDI: Lights, Sound, Action! 

• The Ultimate Game Machine, Amiga 

• Amiga's Desktop Color Publishing 

• "Vax in a Box" - Amiga Engineering 

* AND MORE * 

For information call 800-32-AMIGA (in New 
York call 212-867-4663) or complete the form 
and return it to: 

AmiEXPO Headquarters 



YES! Send me more info on AmiEXPO! 



Name 

Company 

Address 



"? 



Telephone — 



Return form to: 
AmiEXPO Headquarters 
301 East 43rd Street, Suite 301 
New York, New York 10017 



< Dxe.£. <£p.L%lt tzSafttvaie., fln 



538 S Edgewood 

La Grange, IL 60525 

(3121 352-7323 

Super Dis k Utilit ies 

the ullnnalc utilities dak f« Ihe C128S IS7I Included among 
lis many features art 

• Tot drive copy program fur llie 1571 

• Single drive copy program tor Iht 1571 

• File unseratch utility 

• Create au In- boot utility 

• loch S unlock dies utility 

• File copier lor one or two t571's 

• Utility to lormal in 1541. 1571 or IBM system 14 lor mat 

• CF7M Plus disk copier 

• Direct US commands 

• Analyze dish format utility tincludJ-n-g Commodora S alien 

disk lormatsl 

• Write protect utility 

• Disk Editor - Individually tract tiles, edit in hu or ASCII 
simultaneously, print in ho and ASCII to any sector on disk 

■ ffiU Plus disk editor 

• HAM Writer - Head S write to drive RAM 

• ROM Reader - Head drive ROM 

• Assemble/Disassemble drive RAM A ROM 

• Erase a track or bulk erase a disk 

• Most utilities also work on 1541 

• And nsuci much more 1 

A complete utilities disk lot only S39.95! 

1541/1571 Drive Alignment 

1541 /1571 Drive Alignment reports the alignment condition of 
Ike disk drive as you ptrlrjrm adjustments On screen help is 
available while the program is running Works on the 1541. 1571 

in eilhei 1541 or 1571 mode. CM. SXW. C128 in either 64 or 128 
mode 1 AutoooolS to all modes 1 Manual includes instructions, on 
how to load alignment program even when the drive is so 
misaligned that it will not load anything else. Eliminate 
downtime J costly repairs' Only $34,951 

Super Disk Librarian 

Full lealured disk cataloging S library system lor the [128 in 
128 mode Catalogs up lo 1000 disks and 15 200 program names 1 
Operates in fast mode with 90 column display Reads S catalogs 
1541. 1571 & CP>'M Plus disk directories Reads heavily 
protected disks Catalog up to 25 programs on a disk wit; a 
single keypiess or selectively catalog progiarns Slores in seven 
categories: Games. Education. CP/M. Archival, 
telecom municalinns, Ulilitities or Productivity Recall by 
category, program name, disk name of locater number. Printer 
output includes literary index., full library report, master program 
list, category [rogiam list & disk labels A second drive can be 
addressed as a data disk Only 129.951 

Super 64 Librarian 

Complete disk cataloging and library system lor the C&i Heads 
S tiles disk directories in 15 user-defined categories Individual 
selection of program names to be filed. Includes space lor user 
comments about programs. Retail by category, program name, 
etc. Printer output includes disk labels. Catalogs approximately 
200 disks dependant upon number Of progiarns and length of 
user comments Organize your C64 disk library for only 
329951 

FREE SHIPPING I HANDLING! Illinois residents aid 6 v. 

sales lai Send check m money order lo 



c& 



Free Spirit Sollware. Inc. 

538 S Edgewood 

La Grange, IL 60525 
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The people at Discover)' Software 
did not remain idle. Following a brief 
hiatus they presented Marauder II 
(seems everybody is into sequels these 
days), probably the most effective copy 
program for the Amiga available at this 
lime. 

Marauder II has all the earmarks of 
a successful copy program. It has a 
flashy screen to which the accompany- 
ing screen shot does not do justice. The 
rainbow of colors continuously scroll 
up the display. It generates a startling 
digitized sound when it boots up. It has 
a separate routine for copying the copy 
protected disk of its closest competi- 
tor, thereby clearly demonstrating its 
superiority. It is properly adapted for 
the Amiga with an easy to use, icon- 
based, mouse-driven interface, and it 
supports multitasking. Most important 
of all it is easily upgradable at reason- 
able cost, which permits it to indefin- 
itely forestall its own obsolescence. 

The key to Marauder lis upgradabil- 
ity is also the basis of its intelligence. 
Rather than attempting to copy via 
brute force duplication. Marauder II 
utilizes a "brain module" for the basis 
of its operations. The brain module 
represents the intelligence of its pro- 
grammers. It automatically recognizes 
a host of copy protected programs and 
provides the data which allows Mar- 
auder //to duplicate this program, and 
in most cases also strip the copy pro- 
tection at the same time. In essence, 
Marauder II is a parameter copier with 
a built-in parameter list. 

The brain module is a standard Am- 
igaDOS file which may be easily in- 
stalled by ihe user. New brain modules 
are available to registered owners for 
a $15 fee. This fee covers the cost of 
developing new parameters, which is 
done on a continuous basis. Brain 
modules can be ordered by mail, or 
they can be downloaded from Discov- 
ery Software's own bulletin board. It 
is not necessary to purchase every is- 
sue of the brain module to be fully up 
to date. Each brain module incorpor- 
ates all the program parameters of all 
the preceding brain modules. 

Marauder II also offers several mun- 
dane advantages over the AmigaDOS 
Diskcopy command. To begin with. 
Marauder II can make an exact dupli- 
cate of a disk, something that Diskcopy 
does not do. Marauder II is also slight- 



ly faster than Diskcopy, at 87 seconds 
versus 102 seconds more or less. Mar- 
auder II is also capable of making up 
to four simultaneous copies of a disk. 
Of course, your Amiga will need three 
external disk drives as well as the in- 
ternal drive, and at least one megabyte 
of expansion RAM. If your system has 
the extra RAM. then the disk can be 
read into memory and multiple copies 
can be generated forever after without 
any further disk reads. Even without 
the extra memory, you can produce up 
to three simultaneous copies if you have 
the external disk drives. 

Although Marauder II is fully auto- 
matic and works best with its default 
settings, there are several options avail- 
able on its pull -down menus. The de- 
fault analytical setting may be defeated 
by choosing the verbatim option. This 
turns off the program's ability to ana- 
lyze the original disk and generates an 
exact duplicate if possible. You may 
also turn on the verify option, which 
checks the destination copy for devia- 
tions from the original. This may be 
useful for detecting a damaged destin- 
ation disk. Some esoteric operations 
may also make use of Marauder IPs 
ability to synchronize with the disk's 
index hole while copying. 

Marauder II includes several stand- 
alone utilities on its Workbench disk, 
not all of which are described in the 
manual . The Marauder II manual also 
forms the basis of its own copy pro- 
tection. When you first boot up you 
will be required to enter a word from 
a specific location in the manual. The 
specific word changes each time you 
boot up. Getting back to the stand- 
alone utilities, if you examine both the 
root directories and the c directory you 
will find the following: 

c/IDent: File Identifier. Reports the 
file name, file size, checksum and date 
information. 

c/Peek: Displays the hex and ASCII 
contents of a file. Peek is similar to the 
AmigaDOS Type command, with hex 
option enabled, except it lets you spe- 
cify the starting position in the file and 
the number of bytes to display, 

c/XFind: Locates a specified pattern 
of hex bytes and reports on the loca- 
tion of each match. 

Diskwipe: Completely and quickly 
clears an entire disk. This is slightly 
faster than reformatting the disk. 
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Decoder: Completely decrypts early 
Electronic Arts software to permit fest- 
er loading. 

DiskErr: Scans an entire disk and re- 
ports all errors. 

Most of these utilities were put on 
the Marauder II distribution disk to 
permit the decrypting and copying of 
new software by remote control. If you 
should come across a program which 
Marauder II cannot copy and if you 
happen to give Discover)' Software a 
call, you may be instructed on the use 
of these utilities on die recalcitrant soft- 
ware. If the conditions are right you 
will be rewarded with a working copy 
and Discovery Software will have a 
new parameter for the brain module. 

Multitasking is possible with Marau- 
der 11. The underlying Workbench 
screen may be accessed with the left- 
Amiga and n or m key combinations. 
Of course disk operations are not pos- 
sible, as Marauder II takes control of 
the disk drives. Marauder II may be 
easily installed on any Workbench disk 
using the provided utility. 

Marauder II is a worthwhile invest- 
ment for serious Amiga users. As of 
this date, Discovery Software has al- 
ready issued seven brain module up- 
dates. Updates have been coming at the 
rate of once a month. These people arc 
certainly dedicated to their task. 

Discovery Software International, 

903 East Willow Grove Avenue, Wynd- 

moor, PA 19118 (phone: 215-546-1533). 

—Morton Kevehon 

AMIGA TRACKBALL 

Zebra Systems, Inc. 

Amiga 

Price: $49.95 

If you want to realty make mouse- 
tracks with your Amiga, then replac- 
ing its mouse with a trackball may be 
just the way to go. We have in general 
been most satisified with the mouse as 
an input device for the Amiga. We 
found it takes very little practice to be- 
come adept at its tail twitching and ear 
clicking. However, we have been en- 
countering some difficulty with the 
other denizens which inhabit the desk- 
top upon which our Amiga resides. 
These creatures have developed the in- 
sidious habit of encroaching upon the 
territory which our mouse has reserved 
for its own use. 



We have found the Amiga's mouse 
to be an extremely territorial beast. 
When crowded it will frequently react 
by leaping off the desktop and thereby 
becoming nearly useless. Zebra Sys- 
tems has come up with an alternative 
to the territorial mouse. It seems that 
WICO, the well-known maker of stur- 
dy joysticks and trackballs, has left that 
field of endeavor. Zebra Systems has 
acquired a quantity of the trackballs 
and in a fit of ingenuity has decided 
to modify them for use with the Ami- 
ga. Since the hardware of a trackball 
is essentially an inverted mouse, it was 
only necessary to design a single circuit 
board to replace the one made by 
WICO. 

The requirement for two push but- 
tons means that the modified trackballs 
were originally intended for the Apple 
computers. On this model a single large 
push button is situated at the upper left 
hand corner of the trackball . This but- 
ton has been wired up to correspond 
to the left mouse button. A second, 
smaller button is situated just below the 
first on the left side. This button cor- 
responds to the right mouse button. In 
addition, Zebra Systems has installed 
a jack and adaptor cable to allow the 
mouse to be plugged into the trackball. 



SECTION 

This enables only the push burton func- 
tions on the mouse and not the move- 
ment functions. 

In use we found the arrangement to 
be most agreeable. As a rule the track- 
ball worked best for point and click 
type operations. The click-drag- release 
function was slightly awkward at first, 
although we were able to master it with 
either hand. With the addition of the 
mouse we found the availability of the 
push button on both sides of the key- 
board to be the best of both worlds. 
Elimination of the roaming mouse 
solved some of our desktop territorial 
problems. We also noticed that both the 
mouse and trackball cables were long 
enough to reach around the back of the 
computer, eliminating some of the clut- 
ter around our keyboard. 

The supply of surplus modified 
WICO trackballs is definitely limited, 
so you may have to hustle to get one. 
Alternatively, if you already own a 
trackball and you have some ability 
with electronic construction, we'll sup- 
ply a schematic next month which may 
be sufficient to let you modify your 
own. 

Zebra Systems, Inc., 78-06 Jamaica 
Ave., Woodhaven, NY 11421 (phone: 
718-296-2385). -Morton Kevehon 




BACKUP PROTECTED 
SOFTWARE FAST. 

From the team who brought you 
Copy II Plus (Apple), Copy II PC (IBM) 
and Copy II Mac (Macintosh) comes 
a revolutionary new copy program tor 
the Commodore 64/128 computers. 

• Copies many protected 
programs — automatically. (We 
update Copy II 64/128 regularly to 
handle new protections; you as a 
registered owner may update at 
any time (or $15 plus $3 s/h.) 

• Copies even protected disks in 
under 2 minutes (single drive). 

• Copies even protected disks in 
under 1 minute (dual drive). 

• Maximum of four disk swaps on a 
single drive. 



• Includes fast loader, 12-second 
format. 

Requires a Commodore 64 or 128 
computer with one or two 1541 or 
1571 drives. 

Call 503/244-5782, M-F.B-5 
(West Coast time) with your ~Z * | 
in hand. Or send a check 
for $39.95 U.S. plus $3 s/h, $8 
overseas. 

$39.95 

Central Point Sotlware, Inc. 
9700 S.W. Capitol Hwy. #100 
Portland, OR 97219 

Centivl Point 
Sojhvaw 



Backup utilities also available tor the IBM, Apple II. Macintosh and Atari ST. 

This product rs provided for thv purpose of enabling you So mako archival copies oni/, 
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Art Gallery Disk Sale 

The images on these pages are now available on a monthly 
disk. Multicolor images are supplied in Koala format, while 
high-resolution images are in DOODLE! format. Included are 
a slide show for easy viewing, along with a bit map dump for 
your 1525 printer or properly interfaced equivalent. A sample 
An Gallery disk with slide show and printer dumps is $10; 
or send a stamped and self-addressed envelope (business size) 
for a listing of available An Gallery collection disks. Prices 
shown are for US and Canada. All others add $3 per disk. 
New York State residents please add appropriate sales taxes. 
Disks may be ordered from Morton Kevelson, P.O. Box 260, 
Homecrcst Station, Brooklyn, NY 11229. 

Contribute to Ahoyi's Art Gallary 

The Ahoy! Art Gallery offers the opportunity for fame and 
fortune to any and all aspiring Commodore artists. Simply send 
Morton (see address above) your work on disk indicating the 
drawing package or file format of the images. Inclusion of a 
self-addressed post card will guarantee an immediate response. 
All graphics produced on the C-64/ C-128, Plus/4, and Amiga 
computers are eligible. In exchange your work will receive 
the opportunity for display in these pages. All published works 
will receive royalties based on the monthly An Gallery disk 
sales. Also, both published and unpublished images may be 
included on An Gallery collection disks. 

Note that the An Gallery is not a contest. Published pic- 
tures are selected in an arbitrary and capricious fashion by 
the Ahoy! Art Director based solely on the artistic merit of 
the individual images. 




In case you can't move your computer to 
the veranda for these summer months, 
we've brought the great outdoors indoors. 
Tap row: Fall by Nikki Lewis (Des Plaines, 
IL); Ballagio by Albert Valsecchi (Mil- 
ano, Italy). Middle: River by Barri Olson 
(Madison, Wl). Bottom: Place Jacques- 
Cartier by Robert M. Ellis (Quebec, 
Canada); Island by Gerald J. Abear (Lbs 
Cruces, NM); and Farmer by A. Black 
(Santa Rosa, CA). All artists used Ko- 
ala except Ellis (Animation Station) 
and Abear (CAOPIC). 



*** 
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ARCHER 



FOR THE Ci28 



BY CLEVE BLAKEflQk 



If I have any strong memories from my youth, they arc 
probably of the arcades. There always seemed to be 
an incredible, surrealistic adventure waiting within 
the confines of the darkened, carpeted interiors: a 
great struggle between good and evil I could not find in 
the real world, always only a quarter away. 

I was never much interested in the standbys like Defend- 
er or Pac-Man, hut confess to having been in love with the 
old classic Venture, You remember— the little smiley face 
that battled a host of vile fiends with only hits wits and 
arrows, descending deeper and deeper on a lone journey 
into the netherworld in quest of glory below. What cour- 
age! What cunning! I saw volumes of character carved in 
the lines of that simple, confident grin. 

They say the best games are the ones you make for your- 
self, and I admit the game Archer was inspired by that swell 
arcade hit, now long since gone to its resting place in the 
silicon graveyard. 

This is no bare-bones game, either. It utilizes 25 sprite 
shapes, 3 interrupt driven songs, fast machine language aided 
action, 10 dungeon levels and 5 different floor plans, each 
with assorted creatures, traps, and puzzles. Il also has an 
intriguing title screen with a smooth scrolling backdrop. 
The program is a hybrid BASIC 7.0/machine language 
game, and the movement is smooth and exciting. You'll need 
a high quality joystick with good movement in the diagon- 
als plugged into Port 2 to play. 

The program will take a moment to load the interrupt 
and sprite data before the title screen appears. Press the 
fire button to start the game. 

The first thing you'll always see is a large overview of 
the dungeon level you're on first, with the little green face 
representing you. Guide the Archer to the doors of each 
of the rooms in the dungeon while dodging Loog and Moog, 
two troll sentries you'd do well to avoid, because your ar- 
rows will never pierce their rough hide. 

Upon your first entry into any dungeon level, the floor 
will be littered with a sampling of diamonds which you can 
pick up as you go for bonus points, each diamond worth 
LEVEL X 50. 

When you enter the door of the rooms, the screen will 
blank for a moment, then cut to a blown-up interior of the 
\ inside of that room, and a blown-up version of the Archer, 
\ complete with bow and arrow. To move, simply push the 
t joystick in the desired direction. To fire, point and push 
| the button. 

I Each dungeon has several different rooms, each possess- 

ii ing a different treasure. You must penetrate each room and 

l collect the treasures before the doors to the staircase at the 

upper left will open, enabling you to descend to the next 
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level. Each time you pick up a treasure, it will appear in 
the "booty" bracket at the bottom of the screen. Notice that 
when you reemergc into the large scale map, Loog and 
Moog have gathered up any diamonds remaining. 

The value of the treasures you collect depends on the lev- 
el and type of menace in the room. Each dungeon creature 
you kill is worth LEVEL x 1000. You can elect just to collect 
treasure, or go for the points and try K> clean out the rooms 
of monsters as you progress. 

There arc more than monsters to fight here. There are 
also "alcoves," little traps with treasure inside guarded by 
shifting walls, or rotating panels. Timing and precision are 
required to survive them. 

If you make it to the tenth level, you will definitely be 
one of the elite, because I have only made it once myself 
as of this writing. Things get really frantic in the more ad- 
vanced levels of the dungeon, requiring anticipation and 
accurate, cobra-fast reflexes. 

You start the game with three men, with a possible bo- 
nus man when you make it to level five. The remaining 
Archers are displayed at lower right. 

The listing is pretty long, so save a copy before running 
il (as you should always do anyway) in case a typo error 
in the data statements should cause the interrupt to crash 
the computer. 

There are three songs that play in the background during 
the game, tentatively titled "Archer's Theme" (title screen), 
"The Troll's Dirge" (dungeon overview) and "Archer's Cru- 
sade" {inside rooms). You may recognize the flute tune that 
plays behind the title screen- it's lifted from a melody by 
Mozart. D SEE PROGRAM LISTING ON PAGE 93 
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Continued from page 12 

included here will procure you a copy 
of Ptanetfall for $14.95. 

Infocom, Inc., 617492-6000 (see ad- 
dress list, page 12). 

JFORTH 

Based on the Forth "83 standard and 
supporting FIG and Forth-79 as well, 
JForth for the Amiga ($99.95) contains 
both an interpreter and a compiler, pro- 
viding an interactive environment that 




It's an interpreter. It's a compiler. 
READER SERVICE NO. 169 

makes it possible to compile programs 
directly from the keyboard. A tech- 
nique known as JSR-Threading ties to- 
gether compiled programs, making all 
code produced by the compiler direct- 
ly executable. 

Delta Research, 415-485-6867 (see 
address list, page 12). 

BUYER BEWARE 

Bad news about Schneider Software, 
whose offering of public domain disks 
was publicized in March's Scuttlebutt. 
We've heard from numerous readers 
who sent the $2.00 Schneider reques- 
ted for a disk-based catalog, received 
back their cancelled checks, but... you 
guessed it. No disks. And no answers 
to the letters we've written to Schnei- 
der trying to redress the problem. If 
you've lost a deuce to these big-time 
operators, write to the Pennsylvania At- 
torney General's Bureau of Consumer 
Protection at 358 State Office Build- 
ing, 100 Lackawanna Avenue, Scran- 
ton, PA 18503 (phone: 317-9634913). 
If you won't do it for the two dollars, 
do it to help keep these folks from try- 
ing for similar mail order bonanzas in 
the future. 













PHONE 




THE LOWEST 
PRICES 


™ c S e T ELECTRON (C ONE* 


LINES 1041 E.ST. 
OPEN MF 


CALL (6 14) 864-9994* P.O. 


Box 13428 • COLUMBUS, OHIO 43213 


^commodore S0FTWAaE 




SOFTWARE 




SOFTWARE 
SPECIALS 




HARDWARE 




ACE OF ACES 


22 99 


GEOS 


39 99 


CHAMP WRESTLING 


19 99 


64C 64* COM PUT EH 


159 99 


HEART OF AFRICA 


999 


PHI NT SHOP 


27 99 


MARBLE MADNESS 


1699 


128C 128k COMPUTER 229 99 


ONE ON ONE 


999 


BUSINESS FORM 




LORDS OF CONQUEST 


24 99 


1541CD1SK DRIVE 
1571CDISK DRIVE 


169 99 
239 99 


FLIGHT NIGHT 
TOUCH FOOTBALL 


IS 99 
999 


SHOP 


-22 99 

29 99 


SKY FOX 
BARD'S TAIL 


24 99 
24 99 


NEWSROOM 


IB02C MONITOR 


189 99 


KARATE CHAMP 


22 99 


MACHS 


22 99 


ONE DN ONE 


11 99 


I902ARGB MONITOR 


269 99 


SILENT SERVICE 


18 99 


MACH 128 


27 99 


MAIL ORDER 




COMPUTER ACCESSORIES 


TAG TEAM 




FAST LOAO 


24.99 


MONSTER 


11.99 


1351 MOUSE 


39 99 


WRESTLING 


24.99 


TURBO LOAO S SAVE 


1799 


ACE OF ACES 


18.99 


RS232 INTERFACE 


39.99 


LEADER BOARD 


22,99 


WORD PRO 




ARCTIC FOX 


24 99 


MESSENGER MODEM 


34 99 


GUN SHIP 


22 99 


WrtUflBO 


22 99 


KILLED UNTIL DEAD 


IB 99 


AVATEK 1200 M00EM 


79 99 


SUB LOGIC FOOTBALL 


29,99 


WORD PRO 




HIGH ROLLEH 


18 99 


AVATEX T200HC 




SU9LOGIC BASEBALL 


26.99 


128WmLE 


22 99 


AMERICA'S CUP 


24 99 


M00EM 


109 99 


UP PERISCOPE 


1699 


SPREADSHEET 


22.99 


TOUCHDOWN 




XETECJR 


39 99 


SUB BATTLE 


24 99 


FILE PRO 64 


18 99 


FOOTBALL 


1199 


XF.TEC SR 


56 99 


GAME STAR 




POWER C 


22 99 


VCHIMATAJUDO 


18 99 


PRINTERS 

star tone 

STAR NX IOC 
F0RTIS DM 1310 




BASKETBALL 


19 99 


PAPERCLIP W/SPELL 


28 99 


FIST 


1899 


199 99 
219.99 


TENTH FRAME 


24 99 


SUPER8ASE 64 


49 99 


PARALLAY 


18 99 


SPY VS SPY 


999 


SUPERBASE 128 


59 99 


FLIGHT SIM II 


29 99 


KARATE KA 


18 99 


POWER ASSEMBLER 


29 99 


SILENT SERVICE 


22 99 


(laOGFSj 
STAR POWER TYPE 
PANASONIC 10811 
PANASONIC 1091 1 


199 99 
169 99 
189 99 
259 99 


COMMANDO 


24 99 


P0CKETWRITER64 


27.99 


LEADER BOARD 


22 99 


AUTODUAL 


29 99 


CERTIFICATE MAKER 


23 99 


DEADLINE 


4 99 


BARDS TALE II 


1199 


DATA MANAGER 128 


39 99 


SATINS' HOLLOW 


4 99 


CHESTM ASTER 




WORD MANAGER 126 


39 99 


RALLY SPEEDWAY 


499 


SEikOShA tooOVC 


169 99 


2000 
FLIGHT SIM II 


24 99 
29 99 
26 99 


SWIFT CALC 128 
SWIFT TAX 
PAPERCLIP II 


39 99 
33 99 

49 99 


HARDBALL 
MCRO LEAGUE 
BASEBALL 


16 M 


CALL FOR 




JET 


24 99 


DISKETTES JOYSTICKS 


SKY FOX 


22 99 


COPY II 


24 99 


SUPERBOWL SUNDAY 


18 99 


ACCESSORIES 




ARTIC FOX 


24 99 


TOYSHOP 


34 99 


SUPERBOWL STATS 


14 99 


MOW TO OflOEH: CASHIER CHECK, MONEY 0R0ER. MASTERCARD" OR VISA" (ADD 4% FOR CHARGE CARDS) NO PERSONAL CHECKS 


NO C.O.D.'S . . . SHIPPED U.P.5. . ALL PRICES SUBJECT TO CHANGE WITHOUT NOTICE, 






SHIPPING: ADD J3.00 DN ALL ORDERS UNDER SI CO 00 


ADD (5 00 ON ALL ORDERS OVER S1OO.00 ACTUAL FREIGHT CHARGED ON 


MULTIPLE ORDERS 
















INTERNATIONAL: ACTUAL FREIGHT CHARGED ON ALL ORDERS OUTSIDE THE CONTINENTAL UNITED STATES INCLUOING A P 




POLICIES: NO' RETURNS WITHOUT A RETURN AUTHORIZATION 


NO RETURNS UNLESS DEFECTIVE ALL DEFECTIVES WILL BE 


EXCHANGED NO EXCEPTION! 


PLEASE SPECIFY 
















CALL OR WRITE FOR FREE CATALOG 








1 


CALL ELECTRONIC ONE f614J 864-9994 OR WRITE 
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DISK MAGAZINI 

The money-saving subscription rates for Ahoy! magazine and the Ahoy! 
program disk are now even lower! 

If you subscribe to Ha Ahoy! Disk Magazine— magazine and disk pack- 
aged together -you'll receive the two at substantial savings over the indi- 
vidual subscription prices! 



YEARLY SINGLE 

ISSUE PRICE 

(12 ISSUES) 

Magazine: S 35.40 

Disk: S107.40 

TOTAL: SI42.80 



SEPARATE 

SUBSCRIPTION 

PRICE (12 ISSUES) 

Magazine: $ 23.00 

Disk: S 79.95 

TOTAL: $102.95 



AH©* 1 



pis* 



A©** |H f 



f»« 



$9f 



Use the postpaid card bound between pages 66 and 67 of this magazine 
to subscribe. (Canadian and foreign prices are higher.) 

The Ahoy! Disk Magazine is also available at Waldenbooks and B. Dal- 
ton's bookstores, as well as other fine software outlets. 

f*********************J 
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Continued from page 40 

computer to be run in FAST or SLOW mode with the 80 
column display. Upon returning to 80 columns from 40 col- 
umns, the computer will always be in SLOW mode. 

USING IT 

You may assemble this program yourself if you want to 
modify or relocate it. You may change the ORG statement 
in line 111. You may run the BASIC program SCRNSWAP 
LOADER on page 84 if you prefer. This BASIC program 
POKEs the machine language object code into memory, 
then performs a SYS 5376 to run the initialization portion. 

Be sure to save the BASIC program before running it. 
If it gives a DATA ERROR message, carefully check your 
data statements and correct any errors. Resave the program 
after any changes. 

One other possibility is to add line 255 to SCRNSWAP 
LOADER: 

255 BSAVE "SCRNSWAP. 0", P5376 TO P5523 

This will create an object file called SCRNSWAPO on the 
disk. If you have to correct and rerun the BASIC program, 
you must first scratch the old version of SCRNSWAPO each 
time. Type SCRATCH "SCRNSWAPO" before rerunning 
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the program. 

If you added line 255, then the next time you start your 
computer, you can load and execute the program with the 
statements 

BL0AD "SCRNSWAP. 0" : SYS 5376 

This is taster than running the original BASIC loader pro- 
gram. The real advantage is that these statements can be 
part of your autoboot program. (You do have an autoboot 
program to load your favorite utilities, set your screen col- 
ors, and customize your function keys, don't you?) 

CHANGING MODES 

How is the screen mode changed? There are several ways 
to switch between the 40 column and the 80 column dis- 
plays. The Escape-X sequence toggles between the two 
modes. Press and release the Escape key. Then press the 
X key. 

Another way to change modes is to enter or execute the 
GRAPHIC command. GRAPHIC 5 selects 80-column 
mode. GRAPHIC followed by numbers from through 4 
selects the VIC 40 column output. Refer to the Program- 
mer's Reference Guide for details on this statement. 

Either the Escape-X or the GRAPHIC commands may 
be used within a program as well as in direct mode. To 
execute Escape-X, use PRINT CHR$(27)"X" since CHR$(27) 
is the code for "Escape". 

Another way to change screen modes is to press the 40/80 
DISPLAY key, then perform a warm restart (hold RUN 
STOP and press RESTORE). The 40/80 DISPLAY key is 
read only during warm or cold bootup. If the key is down 
during bootup, 80 column mode is selected. Otherwise 40 
column mode is selected. 

Entering G064 and responding Y to the prompt will put 
the computer into C-64 mode. This automatically selects 
the 40 column output. 

To disable the SCRNSWAP routine and any other resi- 
dent IRQ or SYSTEM__VECTOR wedges, enter this as 
one line in direct mode: 

POKE 2560,3 : POKE 2561,64 

then press RUN STOP/RESTORE. These statements re- 
place the original vector at SA00/SA01. The reboot then re- 
stores the IRQ vector. To reenable SCRNSWAP, you could 
enter SYS DECC150A"). 

Hopefully when you write your next IRQ wedge, you will 
use the techniques we have discussed so that your routine 
does not clobber any other wedges which are present. 

Anyone with a hot soldering iron and some perseverance 
should be able to make this project work. Write and tell 
me of your success or problems with it. Also let me know 
if you like hardware and software articles such as this. 

If you are not already taking advantage of 80 column mode 
on the C-128, you should consider an inexpensive green 
screen. The 80 column mode makes the C-128 a serious 
programmer's computer. Electronically controlled screen 
swapping makes the C-128 even better. □ 

SEE PROGRAM LISTINGS ON PAGE S3 
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FSD-2 EXCELERATOR PLUS 
Emerald Component International 
Commodore 64 
Price: $159.00 

Clone is the current buzzword in the 
microcomputer industry. It has reached 
die point where the announcement of 
a new line of microcomputers from a 
certain well-known manufacturer is im- 
mediately greeted by massive specula- 
tion as to how soon the new machines 
will be cloned. On the other hand, the 
microcomputers manufactured by 
Commodore have never been cloned. 
This phenomenon may be easily ex- 
plained. Commodore's microcomputers 
are so reasonably priced to begin with 
that the clonemongers have no margin 
for profit if they try to undercut Com- 
modore's prices. Furthermore, the ex- 
tensive use of proprietary hardware and 
software makes it virtually impossible 
to legally construct a properly function- 
ing clone of a Commodore micro such 
as the C-64. 

On the other hand, we have found 
that Commodore peripherals have been 
cloned from the very start. The rea- 
son for this is that for the most part 
Commodore does not manufacture its 
own peripherals. Items such as print- 
ers and disk drives are made for Com- 
modore by major manufacturers of 
such products. Thus it is possible for 
a clone maker even to contact the or- 
iginal contractor for the Commodore 
peripheral and come to market with a 
competing product. 

The 1541 disk drive in particular has 
received much attention from the clone 
makers. The basic hardware of the disk 
drive mechanism has been fairly well 
standardized for several years. Double 
sided, double density drive modules for 
the IBM PCs sell for well under $100. 
Single sided, single density modules, 
such as for the 1541, arc even less. As 
a result it is very easy for a manufac- 
turer to put together a 1541-compati- 
ble disk drive. 

Distributors have also been very 
swift to capitalize on the I541's repu- 
tation for misalignment under the dur- 
ess of some copy protection schemes. 
Retailers in particular are interested in 




Top: FSD-2 and 
its power supply 
atop the 1541. 
Middle: bottom 
view, showing 
direct drive 
TDK module, 
6502 micropro- 
cessor, two 6522 
VIAs, 16K of 
ROM, 2K of 
RAM, and DIP 
switches. Bot- 
tom: top view, 
showing re- 
maining circuits. 
READER 
SERVICE NO. 167 
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switching prospective customers to 
1541 clones, as they generally have a 
higher markup. 

The FSD-2 Excelerator Plus is an- 
other entry in the 1541 clone market. 
Its most distinguishing feature is its 
small size. The dimensions are a mere 
5*" wide by Pi" high and 10 W deep. 
This is only about one fourth the vol- 
ume occupied by a 1541 disk drive. In 
all fairness, the additional bulk of the 
Excelerator Plus's external power sup- 
ply should be considered as well. This 
sealed module, roughly the size of a 
C-64 power supply, adds about 30 per- 
cent to the volume of the disk drive. 
Even at that, die FSD-2 is less than half 
of the total volume of the 1541. Of 
course, the power supply's five loot 
long input and output cables let you 
find a convenient location for it. 

The version of the Excelerator Plus 
we looked at is built around a half- 
height, direct drive TDK disk drive 
module. The main circuit board con- 
tains the usual collection of 1541 com- 
ponents consisting of a 6502 micropro- 
cessor, a pair of 6522 VIAs, 2K of 
RAM. and the operating system in 16K 
of ROM. The remainder of the circuit- 
ry is made up of standard TTL inte- 
grated circuits. To achieve its compact 
construction, the main circuit board has 
been divided up into three interconnec- 
ted modules. When we opened the 
drive up we noticed that some of the 
connecting plugs were coming loose. 
At this point wc made sure that all the 
connectors were properly seated. 

As with similar lever action disk 
door designs, the disk has to be manu- 
ally extracted from the drive. We found 
that the disk well was rather deep, mak- 
ing it slightly awkward to extract the 
disk. The front panel sports a single 
LED which glows green to indicate 
power on and red to indicate drive ac- 
tivity. The TDK drive mechanism has 
a mechanical track one stop, similar to 
the original 1541 drives. As expected, 
the drive head rattled when formatting 
a disk or upon encountering a disk er- 
ror. The acoustics of the compact me- 
tal case minimized the sound coming 
from the drive during these activities. 
The drive's device number may be eas- 
ily changed via a pair of miniature 
switches which are accessed through 
a cutout in the bottom of the drive. 



Operating speed of the Excelerator 
Plus was comparable to the 1541 disk 
drive. The only notable speed improve- 
ment was in formatting a disk. The ta- 
ble gives some sample times in seconds . 



Operation 


FSD-2 


1541 


Format 


56 


85 


Load 10K 


26 


26 


Save 10K 


30 


31 



The real concern of the end user with 
regard to 1541 clones is compatibility. 
The problems with compatibility are 
not with the standard Commodore 
DOS commands but with the nonstan- 
dard operations performed by many 
purveyors of commercial software. 
Many of these packages employ copy 
protection schemes which may not 
work on non-Commodore disk drives. 
The package label for the FSD-2 indi- 
cates "Guaranteed Compatibility"; how- 
ever, the enclosed warranty card does 
not indicate the nature of this guaran- 
tee. Due to the large number of com- 
mercially protected C-64 software pro- 
grams, we were unable to try out the 
FSD-2 with all of them, so we picked 
the ones we felt would be most likely 
to lead to difficulties. 

We found no compatibility problems 
with the FSD-2 when we tried it out 
with GEOS, Epyx Fast had, and a 
game from Accolade Software. We 
even had no problems with Super Kit 
1541, well-known for its finicky beha- 
vior with 1541 disk drives which are 
only slightly out of alignment. All this 
compatibility was truly astounding. So 
astounding, in fact, that we took the 
trouble to take a closer look at the 
FSD-2. 

As a first step we extracted the drives 
ROMs, slipped them into a Promen- 
ade, and compared them to the contents 
of a 1541's ROM set. We were amazed 
to find that the code was entirely dif- 
ferent. We were even more amazed 
when we noticed that the contents of 
the FSD-2's ROMs would not disas- 
semble into standard 6502 opcodes. As 
a second step we replaced the ROMs 
and used the DOS's memory-read com- 
mand to extract the entire contents of 
the FSD-2 ROMs. At this point our 
amazement turned to enlightenment as 
we compared the resulting code to the 
1541 ROMs. It was identical in every 
respect! At this point we were ready 



to guarantee the compatibility of the 
FSD-2 ourselves. 

Apparently one or more of the ROM 
dala lines on the FSD-2's circuit board 
have been swapped. The ROM code 
was adjusted accordingly. As a result 
the code looks fine to the drive's 6502 
microprocessor. However, a casual in- 
spection of the ROMs will reveal only 
gibberish. We have been informed by 
a reliable source that Commodore has 
obtained an injunction to prevent the 
distribution of the FSD-2 in Germany. 
The presence of the FSD-2 at the last 
World of Commodore was also blocked. 
In this country the copyright status of 
the 1541's ROM seems to be undeci- 
ded. The possibility exists that Emer- 
ald could be able to legally distribute 
the FSD-2 in the US. 

Overall the FSD-2 Excelerator Plus 
is a competitively priced albeit plagiar- 
ized alternative to the Commodore 1541 
disk drive. It will be especially appeal- 
ing to users who will benefit from the 
small space occupied by the drive. It 
is certainly a worthwhile consideration 
as a second disk drive. 

Emerald Components International, 

541 Willamette, Eugene, OR 97401 

(phone: 800-356-5178/503-683-1154). 

—Morton Kevehon 

GRAPHICS TRANSFORMER 
Complete Data Automation, Inc. 
Commodore 64 
Price: $34.95 

Last month we presented a round- 
up of graphics conversion packages 
along with a tutorial on bit mapped 
graphics for the C-64. No sooner had 
the ink dried on our report than another 
graphics conversion package arrived on 
our doorstep. While w : e suppose we 
should be used to this, as it seems to 
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happen often enough, somehow we are 
always surprised by the many devious 
ways of the imp of perversity. We 
wouldn't take the issue to heart if the 
package were a real dog and not worth 
considering in any event. However, the 
Graphics Transformer turned out to be 
a contender for the top spot on our list 
with some powers and abilities not 
found in any of the others. 

If nothing else, the Graphics Trans- 
former recognizes a greater selection 
of full bit map formats than any other 
package, as is readily apparent from the 
following list. You will notice that the 
icon formats, such as those used by 
Prim Shop and Newsroom, are conspic- 
uous by their absence. We have been 
informed that a future update to the 
package will incorporate these formats. 

Graphics Transformer File Formats 
High-resolution Multicolor 



Art Studio 
Billboard Maker 
CadpaJc 64 
Computer Eyes 
DOODLE! 
Flcxidraw 
GEOS 
Print Shop 
Sahara Abstraction 
Videoin 64 
Stand Alone 
Mulii File 



Animation Station 
Billboard Maker 
Blazing Paddles 
Flying Colors 
Graphics Magician Jr. 
Koala 
Kwik Paint 
Micro-Illustrator 
Paint Magic 
Peripheral Vision 
Picasso's Revenge 
Sorcerer's Apprentice 
Super Sketch 
Vidcom 64 
Stand Alone 
Multi File 

The Graphics Transformer will con- 
vert any of these file formats to any 
other of the listed file formats. This in- 
cludes the cross conversion from mul- 
ticolor to high-resolution bit mapped 
graphics and vice versa. Note that the 
Graphics Transfonner was the only 
package that would handle a full GEOS 
bit map, which may actually be as large 
as eight standard sized C-64 bit maps. 
The Graphics Transformer automati- 
cally bads in a separate routine to han- 
dle the conversion of GEOS files. All 
the other conversion functions reside 
in a single program module. When 
converting from GEOS you will be giv- 
en the opportunity to scroll around the 
entire GEOS file and pick out a stan- 
dard 8000-byte bit map. 

The last two file formats under each 
heading are unique to the Graphics 



Transformer. The standalone format 
creates a file which may be loaded and 
then run to display the image. You have 
the option of leaving the image on the 
screen or returning to the text display 
mode when exiting by pressing the stop 
key. The Multi File format lets you save 
the bit map image components as 
separate files. For high-resolution im- 
ages, these will consist of an 8000 byte 
bit map whose file name ends with 
.BIT and 1000 bytes of screen memo- 
ry whose file name ends with .SCN. 
Multicolor images will also generate 
an additional 1000 bytes of color mem- 
ory whose file name ends with .COL. 
The byte holding the multicolor back- 
ground color nybble isn't retained. 

The Graphics Transfonner is entire- 
ly menu driven. Your initial task is to 
pick the format of the source and des- 
tination files. This drops you into the 
working menu where the actual con- 
versions lake place. Files are selected 
from onscreen directory listings. Any 
number of Hies may be selected for 
conversion. If more than one file is se- 
lected, they will be done in sequence. 
If you do not care for the results of a 
single conversion, you have the chance 
to skip the file save function for that 
image. However, there is no way to exit 
back to the main menu without loading 
in all the preselected files. 

The directory listing may consist of 
files which are only in the selected 
source file format, or it may contain 
all the files on the disk. We found that 
the source file format listing would 
miss many of the Koala files which 
were actually on the disk. This forced 
us to use the complete directory list- 
ing to access all the Koala files. Se- 
lecting files from the complete direc- 
tory listing lets the Graphics Transfor- 
mer read in any disk file and treat it 
as the selected source file format. This 
would let you convert Koala format 
files which do not adhere to the Koala 
file naming convention. 

When doing a multicolor to high res- 
olution conversion or vice versa, the 
source file is displayed in the destina- 
tion file format upon loading. We found 
that it was not possible to view the file 
in its original format without some loss 
of information. 

The conversion is not fully automa- 
ted. For most files the user must exe- 



cute the Equalize command to com- 
plete the conversion. The Equalize 
command perlbrms several operations 
depending on the conversion. When 
going from high-resolution to multi- 
color mode. Equalize will adjust the 
pixel bit pairs to point to screen RAM. 
Remember, only the 01 and 10 bit pairs 
will cause the VIC chip to look at 
screen RAM for color data. Bit pairs 
00 and It get their color data from the 
background nybble and color memory. 
These areas are filled with default val- 
ues, as they are not part of the orig- 
inal high-resolution file. 

When going from multicolor to high- 
resolution mode. Equalize transfers the 
two most popular colors, from the 
available four, into the corresponding 
character cell of screen RAM, It also 
doubles up the pixels to insure that the 
hi-res image corresponds to the original 
multicolor as much as possible. 

In addition to the basic format con- 
version, the bit map may be manipula- 
ted in several ways. All pixels may be 
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inverted, color may be stripped, the 
image may be flipped horizontally or 
vertically, and the bit map may be 
scrolled in single pixel increments. Bit 
map data which scrolls off the screen 
is lost and the color data does not scroll 
along with the bit map. The image may 
also be converted to the opposite bit 
map format even when the destination 
file format is the same as the original. 
The original image may be completely 
restored after any number of these al- 
terations, with the exception which we 
noted ubovc. Interestingly enough, 
there was no way to load in a file, per- 
form some bit map manipulation, and 
resave the file in the same format as 
the original. Conversion to another for- 
mat is always required. 

Overall the Graphics Transformer is 
a very useful tool for anyone who 
works with C-64 graphics in several 
file formats. Many, if not all. of our 
criticisms will most likely be taken care 
of in the next update of the program. 
It seems that many of the proprietors 
of Complete Data Automation, Inc. are 
graduates from the select school of 
C-64 copy program programmers. 
Those of you who remember programs 
such as DiSector will recognize some 
of the names in the accompanying 
credits. In fact, more than a small 
amount of the C-64 hacker's wit has 
found its way into the program and its 
brief documentation. 

Complete Data Automation, P.O. 
Box 1052, Yreka. CA 96097 (phone: 
916-842-3431). -Morton Kewlson 

CELEBRITY COOKBOOK VOLUME I 

Merrill Ward 
Commodore 64 
Disk; $29.99 

Here's a tasty recipe for any compu- 
terist with a hunger for high tech deli- 
cacies. Take one Commodore 64/128, 
add Celebrity Cookbook Volume I and 
mild.' One hearty appetite will surely 
emerge! The program might not turn 
you into a master chef, but it does pro- 
vide alternatives to Wednesdays meat 
loaf and mashed potatoes. Best of all, 
it's designed for ease of use by non- 
computerists. Simple onscreen direc- 
tions, single-key commands, and full 
printouts of the recipes make Celeb- 
rity Cookbook a snap to use. 

The program features 50 or more 
recipes collected from such varied lu- 



minaries as Ronald Reagan, Princess 
Di, Dolly Parton. and Bob Hope. Each 
recipe is presented in plain, matter-of- 
fact terms, with simple directions for 
its preparation. 

As the program loads, a quote by 
Andy Rooney offers the pithy wisdom 
that The two biggest sellers in any 
bookstore are cookbooks and diet 
books. The cookbooks tell you how to 
prepare the food, and the diets tell you 
how not to eat any of it." 

The tide page asks the user to choose 
from Volumes 1 through 6. If the cook 
is using one of the additional collec- 
tions in this scries, this is the signal 
to insert the disk. 

After the cook chooses Volume 1, 
the onscreen menu lisLs the contents of 
the cookbook. There are eight choic- 
es: Appetizers & Beverages, Fish & 
Fowl Entrees, Meat Entrees, Desserts, 
Wine Directory, Bar Guide, Recipes by 
the Computer Chef, and Other Fea- 
tures. Choosing one of the four food 
categories prouces a listing from A to 
K of "star recipes." These explore the 
palates of the people who contributed 
to the cookbook, with such recipes as 
Ronald Reagan's Corned Beef Hash, 
Mitzi Gaynor's Hungarian Goulash, 
Jane Fonda's Curried Chicken, and 
Johnny Matins' Wild Duck. 

The Wine Directory is especially 
nice for meal planners. First the user 
chooses from five food categories: 
fowl, seafood, red meat entrees, des- 
serts, and cheeses, nuts, and pasta. Af- 
ter the initial selection, the cook can 
further define the parameters of the 
meal. Under seafood, for example, the 
menu lists A, clams, oysters and non- 
oily fish, grilled or poached; B, 
smoked salmon, fish with cream sauc- 
es, and fried fish; or C, rich prepar- 
ations or crab and lobster. Each of 
these selections produces a brief de- 
scription of die quality of wine that best 
compliments the food to be served, fol- 
lowed by a list of a half-dozen or more 
specific suggestions. 

The Bar Guide teaches the host or 
hostess the basics of mixology. There 
are recipes and instructions for a doz- 
en of the most popular drinks, plus in- 
formation on the amount of alcohol 
needed for parlies from four to forty 
guests. 

Celebrity Cookbook, in addition to 
the recipes, contains Star Diets, in 



which 20 contributors like Mary Tyler 
Moore, Sophia Loren, and Boy George 
describe what they eat for breakfast, 
lunch, and dinner. Most have a weight 
loss theme, and there are some help- 
ful hints here for dieters. However, 
some are charming and ingenious. For 
example, Dolly Parton admits her 
breakfast ". . .used to be spare ribs. Now 
it's juice and a soft-boiled or poached 

egg" 

Other features make the program 
even more useful. Perle Mesta's Party 
Tips provides hints for more pleasur- 
able social gatherings, and includes a 
quiz on being a good guest. A slide 
show flashes a half-dozen food-connec- 
ted cartoons onscreen in a meaningless 
but pretty display. Finally, Celebrity 
Cookbook contains an easy-to-use rec- 
ipe filer. The program even comes with 
a formatted blank disk, already titled 
'My Favorite Recipes.' for the compu- 
terist's use. To make the program more 
attractive, special options change the 
text, background screen, or screen bor- 
der colors at will. 

Although the onscreen instructions 
are fine, it is a pity that Merrill Ward 
didn't include printed documentation as 
well. It would be helpful to have in- 
formation at hand, particularly when 
using die recipe filer. Htrwever, the pro- 
gram does permit the user to make 
printouts of the instructions, and the 
package includes a Quick Reference 
Card with a listing of command keys, 

Merrill Ward promises five addition- 
al volumes to follow, at $14.99 each. 
Four of these will feature menus for 
holidays (Easter, Fourth of July. 
Thanksgiving and Christmas), and the 
fifth will have prizewinners from a con- 
test sponsored by the publisher. 

What Celebrity Cookbook Volume I 
lacks in fancy ornamentation is made 
up by ease of operation. It may not 
make you a better cook, but it should 
give you some new ideas about what 
to fix for supper tonight! 

Merrill Ward, 255 N. El Cielo Road, 
Suite 222, Palm Springs, CA 92262 
(phone; 619-320-5828). 

—Joyce Worley 

CCSZ CLOCK/CALENDAR CARTRIDGE 
Jason -Ranheim 
Commodore 64 and 128 
Price: $49.95 
Does your C-64 or C-128 ever want 
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to know the date and time? More ac- 
curately, are programs you run on your 
computer interested in the date and 
time? If so, the CCSZ Clock/Calendar 
Cartridge may be just what you need. 
Now, some of you may be aware that 
the TI and TIS variables in Commo- 
dore BASIC will return the time or a 
reasonable facsimile thereof. And you 
may justly question the need for an ad- 
ditional time gizmo to be added to the 
computer's expansion port. Rest as- 
sured that we will properly address all 
these concerns. 

BASIC does maintain a rudimentary 
timekeeping function. Locations 160- 
162 (SA0-SA2) arc the zero page stor- 
age locations for the C-64's and the C- 
128's software jiffy clock. Note that in 
this case a jiffy is 1/60 of a second. 
This 24 hour clock is updated every 
1/60 of a second by the operating sys- 
tem at the occurrence of each system 
IRQ. The system IRQ is what normally 
performs BASICs housekeeping func- 
tions, which include the scanning of the 
keyboard. The problem with this clock 
is that it is not very accurate. There are 
numerous operations which interrupt 
the regular functioning of the IRQ, such 
as disk and tape operations. 

Interestingly enough, the C-64 and 
the C-128 have two genuine, real time, 
time of day {TOD) hardware clocks 
built right in. These clocks are an in- 
tegral part of 6526 Complex Interface 
Adaptor (CIA) chips, of which there 
are two in every computer. These arc 
12 hour clocks with a precision of 1/10 
of a second. A single bit is provided 
to indicate AM or PM . The clocks arc 
updated every 1/10 of a second by the 
60 Hz (50 Hz in Europe) power line 
frequency whose rate is accurately 
maintained by the power company. 
This is one of the uses for the nine volt 
AC supplied to the computer by its ex- 
ternal power supply. 

Strangely enough, the operating sys- 
tem makes absolutely no use of what 
seems to be a very valuable hardware 
resource. The reason for this is prob- 
ably a holdover from the PET and VIC 
20, and the BASIC 2.0 which is com- 
mon to all these computers. The I/O 
functions in these older machines were 
implemented with 6522 Versatile In- 
terface Adaptor (VIA) chips. The VIA 
chip does not have the internal TOD 
clock provided widi the CIA. This does 
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not explain why a real time clock func- 
tion was not added to BASIC 7.0 in the 
C-128, especially in view of the fact that 
the CIA's TOD clock is not affected by 
anything the computer does as long as 
it is turned on. 

The CCSZ Clock/Calendar cartridge 
seeks to rectify this oversight and pro- 
ceeds to do so with a vengeance. Ja- 
son -Ranheim has managed to cram an 
impressive array of hardware into a 
standard size (I'A" by 3") expansion 
port cartridge. To start with, there is 
an OKI Semiconductor MSM6242RS 
crystal controlled clock chip. To keep 
this clock running after the computer 
is turned off there is also a 3.6 volt, 
70 milliampere hour, rechargeable nic- 
kel-cadmium battery. This battery, 
when fully charged by approximately 
24 hours of computer operation, is cap- 
able of maintaining the contents of the 
CCSZ for up to 18 months. 

The program which tells the CCSZ 
what to do is stored in an onboard 8K 
PROM. In addition the CCSZ contains 
8K of static RAM of which one page 
(256 bytes) is reserved by the CCSZ. 
The remaining 7936 bytes is available 
to the user. The contents of this RAM 
is also preserved by the CCSZ's built- 
in battery. Finally there is an empty 28 
pin DIP socket which can accommo- 
date a user-programmed PROM with 
up to 64K of program space. The em- 
phasis on PROMs in the CCSZ is not 
at all surprising in view of Jason-Ran- 
hcim's flagship product, the Promen- 
ade, a very versatile PROM program- 
mer for the C-64 priced at less than 
$100, 

This impressive collection of chips 
would not be of much use without 
proper operating system support. This 
support is exactly the function of the 
CCSZ's built-in PROM. Incidentally, 
all the CCSZ's chips, except the clock 
chip, arc socketed for easy replace- 
ment. The first time you turn on the 
computer with a CCSZ installed you 
should do so with the CONTROL key 
depressed. This will cause the display 
of the CCSZ's setting menu. 

The first menu item is the Set Date 
and Time Function, which drops you 
into a second menu to do just that. 
Once set, the information is stored in 
the CCSZ's own RAM. The second 
menu item tells the CCSZ just what to 
do with its time information every time 
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it powers up. You can instruct the 
CCSZ to install the time into the TOD 
clock of one of the computer's CIA 
chips. Or you can tell the CCSZ not 
to update the CIA's TOD clock at all. 

The next menu item tells the CCSZ 
the power line frequency. For North 
America this will be 60 Hz and for Eu- 
rope it will be 50 Hz. The frequency 
setting in the computer is a hardware 
function which is not available to the 
CCSZ on the expansion port. 

Next you arc oflered the option of 
automatically displaying the date and 
time information in the upper right 
hand comer of the screen. This infor- 
mation will be updated by the CCSZ's 
own IRQ which occurs once per sec- 
ond. Thus, even if you clear the screen, 
the date and time information will re- 
appear. You have the option of display- 
ing only die time, the date and the time, 
or nothing at all . Note that the date and 
time display data will be read by the 
computer when you hit the RETURN 
key on that line. This will interfere with 
user input on the first screen line. 

The next option allows the CCSZ to 
date and time stamp disk files. This 
does not use any normally accessed 
space on the disk, as four unused hytes 
in the disk directory have been chosen 
for this purpose. The disk file data and 
time information may be displayed by 
using the CCSZ's directory display 
command, the asterisk (*). This com- 
mand supports all four disk drive de- 
vice numbers (8, 9, 10, or 11) and may 
be accessed within the C-128's MLM. 

The next two functions let the CCSZ 
automatically load and run a user- 
stored program from either its own 8K 
RAM or from the disk. The CCSZ 
RAM is treated as device 12. You can 
store only one program in it. You can 
also store BASIC'S variable, array, and 
string data in the CCSZ's RAM, Re- 
calling BASIC'S data from CCSZ RAM 
can be a very fast way of initializing 
a program. 

If you elect to load a program from 
disk, four more options are available. 
These let you choose between a C-64 
program or a C-128 program and be- 
tween a relocatable BASIC program 
LOAD or a non-relocatable LOAD. 
You will also indicate the program's 
name. 

All the information entered during 
the setup process is stored in the 
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CCSZ's battery-backed RAM and will 
be implemented each time the compu- 
ter is turned on or reset. 

In addition to all the setup options, 
the CCSZ may be directly controlled 
via a set of 24 additional functions. 
These are all accessed by first POKE- 
ing a value (0-31) into 165 and then ex- 
ecuting a SYS 999. The code which 
controls the function access consists of 

27 bytes starting at 996 (S03E4) in both 
the C-64 and the C-128. We do not have 
the space to go into each of these rou- 
tines in detail, but we have listed them 
all here: 

Table of CCSZ Functions 

No. Kiiiniinii 

Set default computer to C-64 or C-12H 

1 Read date and time from CCSZ .ind More 
in 166-173 

2 Store BASIC variables in CCSZ RAM 

3 Recall R\StC variables from CCSZ RAM 

4 Store HAS1C array data in CCSZ RAM 

5 Recall BASIC array data torn CCSZ RAM 

6 Store 1JASIC slrinB data in CCSZ RAM 

7 Recall BASIC string data from CCSZ RAM 

8 Store CCSZ bytes free in 166-167 

9 Set RAM protect pointer in CCSZ. RAM 

10 Read power-oil" log from CCSZ 

11 Read power-on log from CCSZ 

12 Set RASlCs T1S to current time 

13 Read a register fmm the CCSZ's 6242 cltick 
chip 

14 Store data in 6242 register 

15 Not defined 

16 Store single hyle to CCSZ RAM from 166 

17 Read a byte from CCSZ RAM into 166 

18 Store a block to CCSZ RAM 

19 Read a block from CCSZ RAM 
20-23 Not defined 

24 Number of limes CCSZ has been powered 

up or reset 
25-27 Not defined 

28 Initialize (format) CCSZ RAM 
2'J Completely disable CCSZ 

30 Partial disable of CCSZ 

31 Reenable CCSZ after function 30 

When the CCSZ is installed, the 
auto-boot feature of the C-128 is effec- 
tively disabled. That is, the auto-boot 
function involving sector of track 1 
on die disk, which is automatically exe- 
cuted as part of the C-128's power up 
sequence, will not work. BASIC 7.0"s 
BOOT command, which does the same 
thing, does not work either. The CCSZ 
function number 29 will disable the 
CCSZ and allow the BOOT command 
to operate. It is possible to restore the 
auto-boot function without removing 
the CCSZ from the cartridge port by 
including the execution of function 29 
in a short program saved to those disks 
you wish to auto-boot. This could be 



made part of the program which is au- 
tomatically executed by the CCSZ on 
power up. Based on the available CCSZ 
startup scenarios, there are many other 
ways to accomplish this task. 

Eunctions 10, 11. and 24 are intend- 
ed for when the computer is used for 
the control of unattended processes. 
These functions provide the application 
the ability to determine things such as 
the date and time of a power interrup- 
tion, its restoration, and the number of 
operations which have occurred. When 
combined with the CCSZ's various au- 
tobooting capabilities, it is possible to 
design a computerized application 
which can continue to function through 
disturbances. 

Functions 13 and 14 deal directly 
with the registers in the 6242 clock 
chip. A table of these 16 registers is in- 
cluded with the CCSZ manual. 

The use of the CCSZ with currently 
available commercial applications will 
be spotty. Even applications which 
make use of the CIA's built-in TOD 
clock are apt to reset its contents when 
starting up. For example, CP/M uses 
the TOD clock in CIA #1 for its date 
function. We found that CP/M would 
preserve the minutes and seconds val- 
ues it found there, but the hour value 
gets clobbered. In fact, CP/M even 
clobbered the hour value in the CCSZ. 
Note that the CIA chip docs not store 
any date information. This data is pure- 
ly a function of the CCSZ. 

It may be possible to modify some 
applications to work with CCSZ. Tele- 
communications programs arc a specif- 
ic example which stand to benefit from 
the CCSZ's time and date data. Jason- 
Ranheim has succeeded in modifying 
Bob's Term Pro 128, Sixth Sense 128. 
and Sixth Sense 64 to work with the 
CCSZ, The procedure for doing this 
is available from Jason-Ranheim upon 
request. 

The CCSZ is not intended for every- 
one. Its application will tend to be 
somewhat specialized and it is obvious- 
ly geared to users with programming 
experience. Those users who have a 
need for the CCSZ's specific capabili- 
ties will find it to be a very capable 
and extremely well thought out product. 

Jason-Ranheim. 1805 Industrial 
Drive. Auburn. CA 95603 (phone: 800- 
421-7731; in CA 800-421-7748). 

—Morton Kevelson 
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THE DEATH OF GOTO 

By Richard Herring 



vcr the last two months we've talked about 
control structures - commands that break nor- 
mal line-by-line program execution and trans- 
fer the path of execution to some other point 
in the program. We covered all the control structures in 
COMAL (and in most other languages) except for two. 
The best and the worst were saved for last. The best? 
Procedures (PROC/ENDPROC). The worst? GOTO. Most 
of us started in BASIC. That means we were introduced 
to the worst, most misused control structure and deprived 
of the best. 

In a classic letter to the editor, Edsger Dijkstra (a verit- 
able philosopher of programming) observed that the ease 
of understanding program listings is inversely proportion- 
al to the number of unconditional transfers of control 
(GOTOs) in those listings. The editor titled the letter "Go 
to Statement Considered Harmful.'" 

What Dijkstra was selling was not just the demise of 
GOTO, but the advent of structured programming. That's 
a methodological style of building computer programs by 
logically linking subprograms that are either themselves 
structured programs or are in the form of control structures. 
Back in March we developed a graphics demo where the 
main program was composed entirely of procedure calls 
and was only three lines long: 

10 questions 
20 setup 
30 drawit 

Alternatively, we could have used GOTOs: 

10 GOTO <label at line 40> 
20 GOTO <Iabel at line 210> 
30 GOTO <label at line 330> 

Then, at the end of each of our old procedures, we could 
have jumped back to the main program, or to another pro- 
cedure, or to somewhere seemingly unrelated in the pro- 
gram. Unlike the control structures we studied in the last 
two issues, the pattern used by GOTO is neither systematic 
nor obvious. 

GOTO says to the reader of the program, "Stop here. You'll 
find the continuation of this logic at some other point. Then 
you may come back here or you may not." The problem 
with GOTOs is that they fool the programmer into believing 
that he has control. Programs that use lots of GOTOs can 
continue for pages and pages, borrowing routines from 
themselves, without ever breaking into subprograms that 
will still be comprehensible to the programmer a tew months 
down the road. 

Structured programming, as an alternative, is designed 
to be easy to read, easy to understand, easy to update, and 
easy to debug. During the actual coding of the program. 



structured programming will actually prevent errors. 

The popularity of structured programming is apparent 
throughout computerdom. Witness the popularity of the 
structured language Pascal in universities, the US. govern- 
ment's choice of a structured format for its chosen language 
Ada, and the acceptance of FORTRAN 77 (a version that 
finally allows some structure) in the scientific community. 

Now BASIC doesn't prevent structured programming, but 
the design of the language does not encourage it either. 
COMAL's design does. Especially by fostering the use of 
procedures. 

Procedures arc nothing more than stand-alone program 
modules. Ideally they arc never over a page long (unless 
they are broken into recognizable suhunits themselves). A 
COMAL procedure can be called from the main program 
by just listing its name on a line by itself. To make reading 
easier. COMAL will automatically indent the body of the 
procedure. 

When you call a procedure, the program will jump to 
the procedure, execute it. then jump hack to the main pro- 
gram and continue with the line right after the procedure 
call. Procedures will not be run unless your program calls 
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them, even though they are right there in the listing. 

In COMAL 2.0 procedures become especially attractive 
because they can be EXTERNAL to the program. You can 
save them separately on disk and call them from your pro- 
gram whenever you like. Given the speed of our faithful 
Commodore disk drives, you won't do this a lot. But in 
large programs, the ability to have a subroutine {in the guise 
of an EXTERNAL procedure) that only uses memory while 
it's in use, then gives that memory back to the main pro- 
gram, is pretty attractive. 

Program variables arc generally considered global — 
available to both the main program and the procedure. What 
if the internal operation of your procedure interferes with 
the main program, say by changing a value you don't want 
changed? No problem. Just declare the procedure CLOSED 
and every variable will be local — known only to the proce- 
dure, even if it has the same name as a variable in the main 
program. 

Once a procedure is CLOSED, you can pass the value 
of a variable into the procedure by listing that variable in 
the procedure heading. Or you can IMPORT the variable 
into the procedure (in 2.0 only). When a variable is passed 
into a procedure, the main program still uses its original 
value. When that variable is IMPORTed. however, the main 
program will recognize any changes made by the procedure. 

COMAL procedures, like procedures in all languages that 
support them, are like black boxes. They have certain in- 
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puts, which we can control, and certain outputs, which we 
can specify. From the program's perspective, how a proce- 
dure (black box) does its work is not really important. 

The beauty of structured programs, as E. D. Reilly wrote, 
is that they are worthy of being read by humans, not just 
by machines. And they allow programming to be approached 
more as a science than as an art. 

Whether you're a scientist or an artist, drop me a line 
with your COMAL comments at P.O. Box !544. Tallahas- 
see, FL 32302. D 

Tceh Notes: 

1) Dijkstra's letter to the editor was published in 1968 
in "Communications of the Association for Computing 
Machines," Comm. ACM 11, No. 3. 

2) E. D. Reilly's comments on structured programming 
can be found in the Encyclopedia of Computer Science 
ana" Engineering. 

3) When you include a list of parameters with a proce- 
dure, they are passed to the procedure by their position 
in the parameter list, not by name. That's why names 
don't have to match. But the calling statement and the 
procedure heading must have exactly the same number 
of parameters. And the parameters must be in the same 
order. 

4) If you can avoid using global variables in proce- 
dures, do. They can produce unwanted side effects that 
ripple through your program whenever a change is made. 
Also, if you avoid global variables, you will have proce- 
dures that can be individually saved to disk and used 
in other programs. The best programmers have libraries 
of routines like this, 

5) After a program is RUN (or SCANned in version 
2.0), the computer knows all the procedures. You can 
run any of the procedures in direct mode by typing EXEC 
< procedure name > . This even holds true for external 
procedures. 

6) You may not give a variable and a procedure the 
exact same name in COMAL. 

7) A procedure placed within another procedure 
(nested) will be local to the parent procedure, not glo- 
bal to the main program. Nested procedures are only 
allowed in version 2.0. Procedures are generally not al- 
lowed inside control structures. 

8) When a procedure is CLOSED, it is not only pre- 
vented from changing any variables in the main program, 
but also from using any procedures, labels, or variables 
from the main program. CLOSED means isolated. In 
version 0.14, procedures and functions are always glo- 
bal, even after a CLOSED command. 

9) In principle, GOTO is sufficient for all conceiv- 
able intraprogram sequence control . In fact, it has been 
proved that any flowchart or program can be rewritten, 
in an equivalent way, using subunits of only three kinds - 
command sequences, decision clauses (IF/THEN), and 
repetition (like REPEAT/WHILE). Bohm and Jacopini, 
"Flow Diagrams, Turing Machines, and Languages With 
Only Two Formation Rules," Comm. ACM 9, No. 5, 1964. 
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MSCGRAMMING CHALLB4GB 
By Dale Rupert 




ach month, we'll present several challenges de- 
signed to stimulate your synapses and toggle the 
bits in your cerebral random access memory, We 
invite you to send your solutions to: 

Commodores, c/o Ahoy! 

P.O. Box 723 

Bethel, CT 06801 

We will print and discuss the cleverest, simplest, short- 
est, most interesting and/or most unusual solutions. Be sure 
to identify the name and number of the problems you are 
solving. Put your name and address on the listings as well. 
Show sample runs if possihle. Briefly describe your solutions 
and tell what makes them unique or interesting, if they are. 
You must enclose a stamped, self- addressed envelope if you 
want any of your materials returned. Solutions received by 
the middle of the month shown on the magazine cover are 
most likely to be discussed, but you may send solutions 
and comments any time. Your original programming prob- 
lems, suggestions, and ideas are equally welcome. The best 
ones will become Omimodares! 

PROBLEM #44-1: ADDED DIFFICULTY 

This problem was submitted by James Bickers (Shep- 
herdsville, KY), and he says it is HARD. The user enters 
a positive integer and the computer prints out all possible 
addition problems (of positive integers) which equal that 
number. For example, an input of 4 yields 1+1+1+1, 1+1+2, 
1+3, and 2+2. Jim says no repeats are allowed and num- 
bers must be ordered consecutively. Who can refuse a chal- 
lenge like that? 



PROBLEM #44-2: FRANK'S CHILDREN 

Here's another interesting one from Necah Buyukdura 
(Ankara, Turkey). Frank has five children: 

1. Andy is older than Bill by half of Carl's age. 

2. Bill is older than Emma by half of Andy's age. 

3. Carl is older than Emma by two years plus twice Em- 
ma's age. 

4. Dave is one year older than Emma. 

5. Emma's age is one-fourth the sum of Carl's and Dave's 
ages. 

Write a program to calculate and print the ages of Frank's 
children. 



PROBLEM #44-31 INNER STRING 

Write an unordered INSTR (instring) program. The user 
enters two strings. The program tells whether or not all the 
letters of the first string are contained within the second 
string regardless of order. Any duplicate letters in the first 
string must also be duplicates in the second. 

For example, if the user enters DOOR, COMMODARES 



the computer responds ''Yes." If the user enters ROAR, 
COMMODARES the computer responds "No," since the 
first string contains two R's and the second has only one. 

PROBLEM #44-4: KEY FUNCTIONS 

What is your best, shortest, longest, most interesting, most 
unusual, most useful, or most exciting function key defini- 
tion? One of mine for the C-128 is a list to sequential file 
or printer output" key. It is defined this way: 

CHR${27) + "IDN=8+4*(DN<>8):0PENDN,DN,DN 

,(F$):CMDDN: 

LIST:PRINTJDN:CL0SEDN" + CHR$(13) 

To send a listing to the printer, simply press the function 
key. DN is initially 0, so it becomes 4. Logical file 4 to 
device 4 (the printer) is opened, and the listing is sent to 
il with the CMD command. 

To convert a program to a sequential disk file, first enter 
DN=8 : F$="filename,S.W" in direct mode, then press the 
function key. Now DN remains 8 and device number 8 (the 
disk drive) is opened. The program currently in memory 
is then listed to the disk file whose name is given by FS. 
No doubt this function key definition is trivial compared 
to some of those you can come up with. 

This month we have a group of unique and interesting 
solutions to Commodores from the April 1987 issue of Ahoy! 
Problem #40-1: Small Straight was submitted by Steven 
Steckler (Columbia, MD>. The idea is to simulate the toss 
of five dice as in the game Yahtzee, and to identify any toss- 
es which contained one or more small straights, A small 
straight is a sequence of numbers 1234, 2345, or 3456 ar- 
ranged in any order on the dice. 

Most solutions used sorting techniques to arrange the ran- 
domly chosen dice values in numerical order. Then it is 
a straightforward process to look for one or more of the 
possible small straights. 

Since we will discuss sorting techniques for the next prob- 
lem, let's look at solutions which did not explicitly sort the 
dice first. 

Harry Stoddart (Bradford, ON) used the signum (SGN) 
function in a relevant manner. 



REM 
REM 
REM 
REM 
REM 
REM 



COMMODARES PROBLEM #40-1 

SMALL STRAIGHT 
SOLUTION BY 

HARRY STODDART 



10 PRINT"THE #'S:":FOR X=l TO 5:R=INT(RN 
D(TI)*5+.5)+l:A(R)=A(R)+l:PRINT R;:NEXT 

AHOY! 7) 



■20 FOR Y=l TO 3: FOR X=Y TO Y+3:S(Y)=S(Y) 
+SGN(A(X)):NEXT X:NEXT YiPRINT 

•30 PRINT"THE SMALL STRAIGHTS ARE"1234*-( 
S(l)-4) ;2345*-(S(2)=4) ;3456*-(S(3)=4) 

■40 RUN 

Line 10 generates five random numbers from I to 6 lo rep- 
resent the values of the dice. A(R) stores the count of dice 
having the value R. If there are two 5's and no l's, then 
A(5) equals 2 and A(l) equals 0. 

Line 20 looks for 1234, 2345, and 3456 when Y has val- 
ues 1, 2, and 3 respectively. When Y is 1, X is given val- 
ues 1, 2, 3, and 4. S(Y) is incremented by SGN(A(X) ) for 
each X. If A(l) is 0, meaning that no die has a value of 
L then SGN(A(1) ) is 0. If one or more dice have a value 
of I, then A(l) is greater than zero, and SGN(A(1) ) is I. 

Consequently to have the small straight 1234, SO) will 
be exactly 4, since there will he one or more of the values 
1,2,3, and 4. The SGN function adds only one to the sum 
S(Y) even if more than one die has the value Y. 

Line 30 prints for any of the three possible small 
straights for which S(Y) is not 4. It prints the values of each 
small straight for which S(Y) is 4. If the logical statement 
SO) =4 is true, then it has the logical value -1; otherwise 
it has the value 0. Consequently 1234 * ~{S(1)=4) equals 
1234 when S(l) is 4, and it equals otherwise. 

A different approach is shown in this COMAL program 
by Mark Breault (Brandon, MAW 
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0002 // C0MMQDARES PROBLEM #40-1 : 

0003 // SMALL STRAIGHT 

0004 // SOLUTION BY 

0005 // Mark Breault 

0006 //======= COMAL 0.14 ============= 

0010 dim d$ of 6 

0020 d$: ="000000" 

0030 for i:=l to 5 do 

0040 r;=rnd(l,6) 

0050 d$(r):="l" 

0060 print r, 

0070 endfor i 

0080 if "1111" in d$ then print " Small 

Sraight" 

Mark uses the character positions within the string variahlc 
DS to store the results of the dice. DS is initialized to 
"000000", For every value displayed on the dice, the corre- 
sponding in DS is changed to a 1. If the roll of the dice 
gives values 1, 1, 2, 2, and 5. then DS would have the val- 
ue "110010" where characters in positions I, 2, and 5 are l's. 

All that is necessary to find a small straight is to look 
for four consecutive l's within DS. That is the purpose of 
lino SO. This program inherently sorts the values of the dice 
and makes it easy to pick out the small straight. 

BASIC 7.0 allows the MIDS statement on the left side 
of the equal sign. To set the Rth character within DS to 
"1", line 50 of Mark's program would be 

50 MID$(D$,R)="1" 

and the equivalent statement for line 80 is 

80 IF INSTR(D$,"1111") <> THEN PRINT " 
SMALL STRAIGHT" 

INSTR (called "in-slring") gives a number corresponding 
to the first occurrence of "1111" within D$. If DS does not 
contain the substring "1111" then the INSTR function has 
the value 0. 

Other variations on this theme of inherent sorting included 
binary and prime number representations of the dice values. 
Stephane Edwardson (La Tuque, QUE) assigned prime 
numbers 2,3,5,7,11, and 13 to dice values 1 through 6 re- 
spectively. If the dice values of a toss were 1, 4, 5, 2, and 
3, the prime product of the toss would be 2 * 7 * 11 * 3 
* 5 or 2310. The prime products of the small straights 1234, 
2345, and 3456 are 210. 1155, and 5005 respectively. 

If the roll of the dice contains any of the small straights, 
then its prime product will be evenly divisible by the prime 
product of that small straight. In the example above, 2310 
is evenly divisible by 210 and by 1155 but not by 5005. There- 
fore that toss of the dice must contain the small straights 
1234 and 2345 but not 3456. Ah, the pleasures of mathe- 
matics! Merci. Stephane. 

Problem #40-2: Short Sort was suggested by Chris Rai- 
mondi (Kingsville, MD). The problem was to see if anyone 
could come up with a one-line sorting routine which would 
arrange six input values in numerical order. 
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The two major hurdles in fitting the routines into one 
line were 1) the 80-column line length limit for the C-64, 
and 2) the pesky IF-THEN statement without an ELSE on 
the C-64 (nothing on a line after the IF clause is executed 
if the clause is not true). Clever coding and abbreviations 
solved the first problem. Many readers ingeniously used 
logical variables to solve the second. 

The following program is a compendium of a few of the 
multitude of one-line sorts. 

•2 REM COMMODARES PROBLEM #40-2 : 
•3 REM SHORT SORT 

•10 FOR 1=1 TO 6 ; A(I)=INT(RND(0)*1000)- 
500:PRINT A(I) ; :QQ(I)=A(I) :NEXT I:PRINT 

■20 FOR JJ=1 TO 5 : ON JJ GOSUB 110,210,3 
10,410,510 

•30 FOR 1=1 TO 6 : A(I)=QQ(I) : NEXT I : 
PRINT : NEXT J J 

•99 END 

•100 REM * SOLUTION BY JIM SPEERS ******* 

** ********* * ** ajesje^js ** * * * ** * * ** **** * * * * * sj; * * 

•110 FORI=1T06:K=1:FORJ=1T06:K=K-(A(J)>A( 
K))*(J-K):NEXT:PRINTA(K);:A(K)=-9E9:NEXT 
•120 RETURN 
•200 REM * SOLUTION BY STEPHANE EDWARDS0N 

* ** * *** * * * * * * * * * * * * * * * * * * * * * **** * * * * * * * # 

•210 F0RY=1T05:F0RZ=YT06:A=A(Y):B=A(Z):A( 
Y)=-A*(A<=B)-B*(B<A):A(Z)=A+B-A(Y):NEXTZ 
,Y:F0RN=1T06:PRINTA(N);:NEXT 

•220 RETURN 

•300 REM * SOLUTION BY RON GOW ********* 

**************************************** 

•310 F0RX=1T06:B=0:F0RY=1T06:B=B-(A(Y)<=A 
(X) ): NEXT :C(B)=A(X):NEXT:F0RN=1T06: PRINT 
C(N);:NEXT 

•320 RETURN 

•400 REM * SOLUTION BY D.BRUCE POWELL ** 

***************»;***************>[( ******** 

•410 F0RI=1T05:F0RJ=I+1T06:T=A(J):D=T-A(I 

):K=D<0:A(J)=T+K*D:A(I)=T-(1+K)*D:NEXTJ: 

PRINTA(I) ; :NEXTI:PRINTA<I) ; 
•420 RETURN 
•500 REM * SOLUTION BY JEFF ACHTNIG *** 

************* C-128 ONLY *************** 
•510 F0RY=1T06:F=999999999:A(Z)=F:F0RX=1T 

G6:IFF>A(X)THENF=A(X):Z=X:NEXTX:PRINTF;: 

NEXTY : ELSENEXTX : PRINTF ; : NEXTY 
•520 RETURN 

Line 10 randomly selects six integers between -500 and 
500. They arc stored in A( ) and also in QQ( ). Line 20 
calls each of the sort-and-prinl subroutines in turn. Line 
30 restores the original values of A( ) before the next rou- 
tine is called. Line 110 from Jim Speers (Niles, MI) replaces 
each element of A{ ) with a very small value after that val- 
ue is sorted. Jim's program sorts the elements in descend- 
ing order. 



The other programs sort in a ascending order. C-64 users 
may have to use two lines for some of these routines, al- 
though that is because of PRINT statements. The sorting 
portion of each of these programs fits into one 80-charac- 
ter line. These programs are representative of the wide va- 
riety of solutions, although there were dozens of variations 
on these themes. 

Thanks to Stephane Edwardson (La Tuque, QUE). Ron 
Gow (Sacramento, CA), D. Bruce Powell (Franklin, VA). 
and Jeff Achtnig, as well as all others who sent short sort- 
ing solutions. 

An interesting approach for quickly sorting long lists of 
integers was described by Walter Deuchler, Jr. (Aurora, IL). 
Rather than store the integers in an array, you can store a 
count of the number of occurrences of each integer in the 
array. The index of the array is the integer value. 

Say that you have a set of three integers ranging from 
to 99. If the numbers are 5, 23, and 23, then A(5)=l, 
A(23)=2, and all other elements of A( ) from A(0) to A(99) 
are zero. To print the set in sorted order, simply step through 
each clement of A( ) and print the index of each element 
the appropriate number of times. Look at Walter's program 
to see how it's done. 



■1 REM == 
•2 REM 
•3 REM 
•4 REM 
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•5 REM WALTER DEUCHLER JR. 

■10 MX=99 : DIM A(MX) :REM MAX. INTEGER 

•20 NM-10 :REM # TERMS 

•30 FOR J-l TO NM : X - INT(RND(0)*100) : 

A(X)=A(X)+1 : NEXT 
•40 FOR J=0 TO MX : T-A(J) :IF T THEN FOR 

K=l TO T : PRINT J; : NEXT K 
•50 NEXT J 

The price you pay for the speed of this sorting routine 
is the amount of memory used. The array A( ) must have 
as many elements as the largest allowable integer. Line 10 
sets the maximum integer to be 99 and dimensions A( ). 
Line 20 sets NM to the number of items to be sorted. Line 
30 picks NM random integers from to 99. If a 5 is picked, 
for example, then one is added to A(5). As the numbers 
are picked, they are automatically sorted. 

Line 40 prints the selected integers in sorted order. It looks 
at all elements of A(J) from A(0) to A{99). [f one 0, no 
l's, and three 2's had been picked, then A(0)=1, A(1)=Q, 
and A(2)=3. Consequently the K loop in line 40 prints 0, 
2, 2, 2. The statement "IF T THEN" tests the value of T. 
If T is zero, the rest of line 40 is skipped. If T is non-zero, 
the K loop prints the value of J, T times. 

Walter mentioned that he has sorted an array of 100 in- 
tegers in 304 jiffies using this "indexing" sort, whereas the 
Quicksort required 1884 and the Shell sort required 3128 
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jiffies. Those last two are well-known sorting algorithms. 
If your data fits the constraints of this "indexing" sort, you 
can't beat it for speed and ease of implementation. By the 
way, Robert Sedgewick in his very useful book Algorithms 
(Addi son-Wesley, 1984) calls this type of sort a "distribu- 
tion counting." 

Ivan Rudyk sent the following implementation of the 
Quicksort. 

•1 REM ================================== 

•2 REM DEMONSTRATION OF QUICKSORT BY 
•3 REM IVAN RUDYK 

•10 0=180 : DIM N(Q),M(Q) 

•20 PRINT" [CLEAR] GENERATING NUMBERS! 3"."] 

":FOR X=l TO Q:N(X)=INT(1000*RND(0))+1 :N 

EXT X 

•30 PRINT"SORTING[3"."]" : T0-TI 
•40 M(l)=l : M(2)=Q : A=2 
•50 B=M(A) : A=A-1 : C=M(A) : A=A~1 : E=C 
•60 F=B : D=N((C+B)/2) 
•70 IF N(E)<D THEN E=E+1 : GOTO 70 
•80 IF N(F)>D THEN F=F-1 : GOTO 80 
•90 IF E<=F THEN Z=N(E) : N(E)=N(F) : N(F 

)=Z : E=E+1 : F=F-1 
•100 IF E<=F THEN 70 
•110 IF C<F THEN A=A+1 : M(A)=C : A=A+1 : 

M(A)=F 
•120 C=E : IF C<B THEN 60 
•130 IF AOO THEN 50 

•140 FOR X-l TO Q : PRINT N(X); : NEXT X 
•145 PRINT TI-TOMIFFIES" : END 
•200 REM ================================ 

•210 REM CONVENTIONAL BUBBLE SORT 
•220 REM (ADD LINE 35 GOTO 240) 

•240 FOR J=l TO Q-l :F0R K=J+1 TO Q : IF 
N(J)>N(K) THEN T«N(J) :N(J)=N(K) :N(K)=T 

•250 NEXT K,J : FOR X=l TO Q : PRINT N(X) 
; : NEXT X : PRINT TI-TO"JIFFIES" : END 

It generates and sorts 180 random integers from 1 to 1000. 
It keeps track of the number of jiffies (sixtieths of a sec- 
ond) and displays the results. 

You may add line 35 GOTO 240 to this program to use 
the more traditional form of the bubble sort at the end of 
Ivan's program. Change the value of Q in line 10 for differ- 
ent numbers of items to be sorted. You will soon realize 
that the complexity of the Quicksort program is readily off- 
set by its speed, at least when the number of items to be 
sorted is large. 

The Quicksort took 1484 jiffies (under 25 seconds) to 
sort 180 integers on the C-128 in FAST mode. The bubble 
sort took much longer. Run the timing tests yourself. 

Problem #40-3: Polygon Play suggested by Nolan Whit- 
aker (Jeffersonville, KY) brought out the geometry experts. 
Given the number of sides of a regular convex polygon, 
the computer gives a) the size of each interior angle, b) 
the sum of its interior angles, c) the area of the polygon, 
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d) the radius of an inscribed circle, and e) the radius of 
a circumscribed circle, assuming each side of the polygon 
is one meter in length. Whew! 

"Regular" means "all sides equal," and "convex" means 
"no interior angles greater than 180 degrees." A square is 
a regular convex polygon of" four sides. This program from 
Joe Steiningcr (Bethlehem, PA) lets the user specify the 
number of sides and the length of each side. 



REM 



2 REM COMMODARES PROBLEM M0-3 : 

3 REM POLYGON PLAY 

4 REM SOLUTION BY 

5 REM JOE STEININGER 

10 PRINT" [ CLEAR ]H0W MANY SIDES" 

20 INPUT N:IF N<3 GOTO 20 

30 PRINT" LENGTH OF EACH SIDE, IN METERS" 

40 INPUT L 

50 A=((N-2)/N)*180 

60 S=A*N 

70 R=(L/2)*(1/TAN([PI]/N)) 

80 D=(L/2)*(1/SIN([PI]/N)) 

90 Y=N*(L[UPARR0W]2)/4*(1/TAN([PI]/N)) 

100 PRINT"INTERIOR ANGLES ARE ";A;"DEGRE 

ES EACH": PRINT 

110 PRINT"SUM OF INTERIOR ANGLES IS ";S; 

"DEGREES": PRINT 

120 PRINT"THE AREA IS ";Y;"SQUARE METERS 

":PRINT 

130 PRINT"INSCRIBED RADIUS IS ";R; "METER 

S":PRINT 

140 PRINT"CIRCUMSCRIBED RADIUS IS ";D;"M 

ETERS": PRINT: PRINT 



The formulas for the various parameters are in lines 50-90. 
Keep in mind that BASIC assumes angles are measured in 
radians, not degrees (pi radians = 180 degrees). 

Several readers used a different formula for polygon area. 
If R is the radius of the inscribed circle, the area of the 
polygon is simply N*R/2 where N is the number of sides. 

Richard van Frank (Montclair, NJ) sent a very nice analy- 
sis of this problem. He was interested in the largest num- 
ber of sides the C-64 could handle. It turned out to be a 
4,294,967,295-sided polygon. Do you think you could dis- 
tinguish between such a figure and a circle? 

The inscribed and circumscribed radii arc the same for 
this polygon (within the resolution of the computer). You 
might try putting this problem into a loop and watching 
the inscribed and circumscribed approach each other as the 
number of sides increases. You might also add formulas 
to calculate the areas of the inner and outer circles and com- 
pare them to the area of the polygon. 

On the lighter side, Jim Speers sent along this bit of poly- 
gon trivia. He found when working with this problem that 
a regular polygon with 5.33864716 sides has an area of ex- 



actly 2 square meters. Would anyone care to build one and 
measure it? 

The final Problem U40-4: Integer Functions was to give 
user-defined functions FNF(X) and FNC(X) which calcu- 
late the floor and ceiling function of any input value X. 
The floor function of X is the greatest integer less than or 
equal to X. The ceiling function is the least integer greater 
than or equal to X. 

Half of this problem was nearly trivial, and the other 
half was somewhat tricky. Most readers defined FNF(X) 
this way: 

DEF FNF(X) = INT(X) 

In fact the INT function is equivalent to the floor function. 
The trickier part was the ceiling function. 

The most common solution was DEF FNC(X) = INT(X) 
+1 but unfortunately this is not totally correct. It is valid 
for all values of X except when X is an integer. In that case, 
the floor function is equivalent to the ceiling function. Jim 
Speers used this definition for the ceiling function: 

DEF FNC(X) = FNF(X) + 1 + (X=INT(X>) 

The last part of die expression subtracts the added one when- 
ever X is an integer. Stephane Edwardson took a different 
approach. His definition of the ceiling function is 

DEF FNC(X) = -INT(-X) 

Convince yourselves that these two definitions give identi- 
cal results. Congratulations to Thomson Fung (San Diego, 
CA) for recognizing this subtlety of the ceiling function. 

There should be enough work here lo keep you busy and 
happy until next month. Keep those solutions and sugges- 
tions coming. 

This is a list of people with valid solutions who were 
not already mentioned this month. 
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PROGRAM LISTING^ 



Attention new Ahoy! readers! You must read the following information very carefully prior to typing 
in programs listed in Ahoy! Certain Commodore characters, commands, and strings of characters 
and commands will appear in a special format. Follow the instructions and listings guide on this page. 




n the following pages you'll find several pro- 
grams that you can enter on your Commodore 
computer. But before doing so, read this entire 
page carefully. 
To insure clear reproductions, Af toy's program listings 
are generated on a daisy wheel printer, incapable of print- 
ing the commands and graphic characters used in Commo- 
dore programs. These are therefore represented by various 
codes enclosed in brackets [ ]. For example: the SHIFT 
CLR/HOME command is represented onscreen by a heart 
2 . The code we use in our listings is [CLEAR]. The 
chart below lists all such codes which you'll encounter in 
our listings, except for one other special case. 

The other special case is the COMMODORE and SHIFT 
characters. On the from of most keys are two symbols. The 
symbol on the left is obtained by pressing that key while 
holding down the COMMODORE key; the symbol on the 
right, by pressing that key while holding down the SHIFT 
key. COMMODORE and SHIFT characters are represented 
in our listings by a lower-case V or "c" followed by the 
symbol of the key you must hit. COMMODORE J, for ex- 
ample, is represented by fc J], and SHIFT J by [s J]. 



Additionally, any character that occurs more than two 
times in a row will be displayed by a coded listing. For 
example, [3 "[LEFT]"] would be 3 CuRSoR left commands 
in a row, [5 "Js EP]"] would be 5 SHIFTed English Pounds, 
and so on. Multiple blank spaces will be noted in similar 
fashion: e.g., 22 spaces as [22 " "}. 

Sometimes you'll find a program line that's too long for 
the computer to accept (C-64 lines are a maximum of 80 
characters, or 2 screen lines long; C-I28 lines, a maximum 
of 160 characters, 2 or 4 screen lines in 40 or 80 columns 
respectively). To enter these lines, refer to the BASIC Com- 
mand Abbreviations Appendix in your User Manual. 

On the next page you'll find our Bug Repellent programs 
for the C-128 and C-64. The version for your machine will 
help you proofread programs after typing diem. (Please note: 
the Bug Repellent line codes that follow each program line, 
in the whited-out area, should not be typed in. See instruc- 
tions preceding each program.) 

On the second page following you will find Flankspeed ', 
our ML entry program, and instructions on its use. 

Call Ahoy! at 212-239-6089 with any problems (if busy 
or no answer after three rings, call 212-239-0855). 
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BUG REPELLENT FOR THE 64 & 128 By BUCK CHILDRESS 



Please note: the Bug Repellent programs listed here are for Ahoy! programs published from the May 19X7 issue onward! For older 
programs, use the older version. 

Type in, save, and run Bui> Repellent. You'll be asked if you want automatic saves to take plate. If so. you're prompted for the device. 
DISK (D) or TAPE (!'). You then pick a starting file number, through 99. Next, you enter a name, up to 14 characters long. At this 
point. Bug Repellent verifies your entries and gives you a chance to change them if you want. If no changes are needed. Bug Repellent 
activates itself. (Pressing RETURN without answering the prompts defaults to disk drive and begins your files with "OOBACKUP") 

As you enter program lines and press RETURN, a Bug Repellent code appears at the top of your screen. If it doesn't match the code 
in the program listing, an error exists. Correct the line and the codes will match. 

If used, automatic saves take place every 15 minutes. When the RETURN key is pressed on a program line, the screen changes color 
to let you know that a save will begin in about three seconds. You may cancel the save by pressing the RUN STOP key. The file number 
increments after each save. It resets to 00 if 99 is surpassed. After saving, or cancelling, the screen returns to its original color and 
the tinier resets For 15 minutes. 



When you've finished using Bui; Repellent, deactivate it by typing 
SYS 49152 [RETURN] for the Commodore 64 or SYS 4864 { RE- 
TURN | tor the Commodore 128, 

C-64 BUG REPELLENT 

10 PRINTCHR$<147)"LOADING AND CHECKING THE DATA[3"."]": J 

-49152 

20 F0RB-OT0U :READA: IFA<O0RA>255THEN4O 

30 P0KEJ+B, A :X=X+A sHBXTfi: READA SIFA-XTHEH50 

40 PRINT :PRINT"ERR0R IN DATA LINE: "PEEK (64)* 256+ PEEK (63) 

:END 

50 X=0:J=J+12:IFJ<49456THEN20 

60 POKE198,O:POKE49456,0:A$="Y ,, :B$=A$:C$="D":DS="DISK":D 

=8:PRINTCHH${147) 

70 INPuT'DO Y00 WANT AUTOMATIC SAVES <Y/N)";A$:PRINT:IFA 

$-"Y"THEN90 

80 PRINT" NO AUTOMATIC SAVES[3 ,, ."]":GOTOl r >0 

90 POKE49456,l:INPUT"DISK OR TAPE (D/T)";C$: IFC.$<>"D"THE 

ND»1:DS="TAPE" 

100 POKE49457,D:D$=D$+" DRIVE" t PRINT: INPuT'FILE NUMBER ( 

0-99)";N 

110 NS=RIGHT$(STK$(N),2):IFN<10THENN$=CHRS(48)+CIIR$(N+4S 

) 

120 FS="BACKUP": PRINT: INPUT"FILENAME";F$:FS=NS+LEFT$(FS, 

14):L-LEN(F$) 

130 P0KE49458,L:FORJ-lTOL:POKE49458+J,ASC(MIPS(F$,.J,l)): 

NEXTJ: PRINT 

140 PRINT"SAVING DEVICE ** "D$;PRINT"STARTING WITH ** "F 

$ 

150 PRINT: INPUT'IS THIS CORRECT (Y/N)";BS:IK!!$<>"Y"THEN6 



160 POKE770,131:POKE77I,164:SYS49152:END 

170 DATA169, 79, 32, 210, 255, 162, 38, 160, 192, 204,3,3,1507 

180 DATA208, 10, 162, 131, 160 ,164, 169, 70, 32, 2 10, 255, 44, 161 5 

190 DATA169, 78, 32, 210, 255, 142, 2, 3, 140, 3, 3, 76, II 13 

200 DATA36, 193, 32, 96, 165, 134, 122, 132, 123, 32, 115, 0,1180 

210 DATA170, 240, 243, 162, 255, 134, 58, 144, 3, 76, 150, 164, 1799 

220 DATA32, 107, 169, 32, 121, 165, 173, 0,2, 240, 5, 169, 1215 

230 MTA79, 141, 2, 3, 76, 162, 164, 169, 0,133, 2, 133, 1064 

240 DATA25 1,133, 252, 133, 254 ,24 ,101 ,20, 69, 254, 230, 254, 197 

5 

250 DATA24, 101, 2 1,69, 254, 170, 230, 254, 164, 252, 185, 0,1724 

260 DATA2, 133, 253, 201, 34, 208, 6, 165, 2, 73, 255, 133, 1465 

270 DATA2, 201, 32, 208, 4, 165, 2, 240, 8, 138, 24, 101, 1125 

280 [)ATA253,69,254, 170,44, 198,254,230,252, 164,253,208,23 

V) 

290 DATA2 13, 138, 41, 240, 74, 74, 74, 74, 24, 105, 129, 14 1,1.327 

300 DATA44, 193, 138, 41, 15, 24, 105, 129, 141, 45, 193, 162, 1230 

310 DATAO, 189, 43, 193, 240, 12, 157, 0,4, 173, 134, 2, 1147 

320 DATA157, 0,216, 232, 208, 239, 169, 38, 141,2,3,173,1578 

330 DATA48, 193, 240, 23, 165, 161, 201, 212, 176,4, 165, 160, 1748 

340 DATA240, 13, 238, 32, 208, 160, 0,32, 225, 255, 208, 6, 161 7 

350 DATA32, 33, 193, 76, 38, 192, 232, 208, 242, 200, 208, 239, 1893 

360 DATA32, 68, 229, 169, 0,168, 174, 49, 193. 32, 186, 255, 1555 

370 DATA173, 50, 193, 162, 51, 160, 193, 32, 189, 255, 169, 43, 1670 

380 DATA166, 45, 164, 46, 32, 2 16, 255, 162, 1,189, 51, 193, 1520 

390 DATA168, 200, 152, 201, 58, 144, 2, 169, 48, 157, 51, 193, 1543 

400 DATA201 ,48, 208, 3, 202, 16, 234, 32, 33, 193, 76, 116, 1362 

410 DATA164, 206, 32, 208, 169,0, 170, 168,76,219,255, 160,1827 

420 DATA1, 1,160. 0,0, 65, 72, 79, 89, 33, 0,0, 500 



C-128 BUG REPELLENT 

10 PRINTCHR$( 147 /'LOADING AND CHECKING THE DATA [3"."]": J 

=4864 

20 F0RB=0T011 : READA :IFA<O0RA>255THEN4O 

30 P0KEJ+B,A:X-X+A:NEXTB:READA:IFA=XTHEN50 

40 PRINT: PR I NT" ERROR IN DATA LINE:"PEEK(66)*256+PEEK(65) 

:END 

50 X-0:J-J+12:IFJ<5213THEN20 

60 POKE208,0:POKE5213,O:A$="Y":B$-A$:C$-"D":DS-"DISK":D- 

8:PRINTCHR$(147) 

70 INPUT'DO YOU WANT AUTOMATIC SAVES ( Y/N)";A$: PRINT: IFA 

S="Y"THEN90 

80 PRINT"N0 AUTOMATIC SAVES[3"."]":GOTO150 

90 POKE5213,l:INPUT"DISK OR TAPE (D/T)";C$:IFC$<>"D"TH£N 

D=1:D$="TAPE" 

100 POKK52I4,D:D$=D$+" DRIVE": PRINT : INPUT'FILE NUMBER (0 

-99)" ;N 

110 N$=RIGHT$(STK$(N).2):IFN<10THENN$=CHR$(48)+CHR$(N+48 

) 

120 F$="BACKUP": PRINT: INPUT"FILENAME";F$:F$-N$+LEFT$(F$, 

14):L=LEN(F$) 

130 POKE5215,l:FORJ=lTOI,:POKE5215+J,ASC(MII)$(F$,J,l)):NE 

XTJ: PRINT 

140 PRINT"SAVING DEVICE ** "D$:PRINT"STARTING WITH ** "F 

S 

150 PRINT: INPUT'IS THIS CORRECT (Y/N)";B$:IFBSO'T'THEN6 



160 POKE770,198:P0KE771,77:SYS4864:ENI) 

170 DATA32, 58, 20, 169, 41, 162, 19, 236. 3, 3, 208, 4, 955 

180 DATA169, 198,162,77,141,2,3,142,3,3,224,19,1143 

190 DATA208, 7, 32, 125, 255, 79, 78, 0,96, 32, 125, 255, 1292 

200 DATA79, 70, 70, 0,96, 162, 0,134, 251, 189, 0,2, 1053 

210 DATA240, 19, 201, 48, 144, 9, 201, 58, 176, 5, 133, 251, 1485 

220 DATA232, 208, 238, 134, 252, 165, 251, 208, 3, 76, 198, 77, 2042 

230 DATA 169, 0,166, 235, 164, 236, 133, 253, 133, 254, 142, 47 ,193 

2 

240 DATA20, 140, 48, 20, 24, 101, 22, 69, 254, 230, 254, 24, 1206 
250 DATA101, 23, 69, 254, 170, 230, 254, 164, 252, 185, 0,2, 1704 
260 DATA133, 251, 201, 34, 208, 6, 165, 253, 73, 255, 133, 253, 1965 
270 DATA201, 32, 208, 4, 165, 253, 240, 8, 138, 24, 101, 25 1,1625 
280 DATA69, 254, 170, 44, 198, 254. 230, 252, 164, 251, 208, 213, 23 
07 

290 DATA138, 41, 240, 74, 74, 74, 74, 24, 105, 65, 141, 88, 1138 
300 DATA20, 138, 41, 15, 24, 105, 65, 141 ,89, 20, 32, 79, 769 
310 DATA20, 189, 85, 20, 240, 6, 32, 210, 255, 232, 208, 245, 1742 
320 DATA174, 47, 20, 172, 48, 20, 24, 32, 240, 255, 173, 93, 1298 
330 DATA20, 240, 27, 165, 161, 201, 212, 176, 4, 165, 160, 240, 1771 
340 DATA17, 32, 65, 20, 238 ,32, 208, 238, 1,214, 32, 225, 1322 
350 DATA255, 208, 6, 32, 49, 20, 76, 198, 77, 232, 208, 242, 1603 
360 DATA200, 208, 239, 32, 66, 193, 173, 95, 20, 162, 96, 160, 1644 
370 DA TA20, 32, 189, 255, 169, 0,170, 32, 104, 255, 169, 0,1 395 
380 DATA 174, 94, 20, 168, 32, 186, 255, 169, 45, 174, 16, 18, 1351 
390 DATA172, 17, 18, 32, 216, 255, 162, 1,189, 96, 20, 168, 1346 
400 DATA200 , 1 52 , 201 , 58 , 144 , 2 , 169 , 48 , 1 57 , 96 , 20 , 201 , 1448 
410 DATA48, 208, 3, 202, 16, 234, 32, 49, 20, 141, 0,2, 955 
420 DATA76, 183, 77, 58, 59, 32, 65, 20, 2%, 32, 208, 206, 1222 
430 DATAI, 214, 169, 0,1 70, 168, 76, 219, 255, 32, 79, 20, 1403 
440 DATAI69, 26, 141 ,0,214, 173, 0,214, 16, 251, 96, 162, 1462 
450 DATAO, 142, 0,255, 96, 19, 18, 32, 32, 32, 32, 146, 804 
460 DATAO. 1,0, 0,65, 72, 79, 89, 33, 0,0, 0,339 
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FLANKSPEED FOR THE C-64 By GORDON F. WHEAT 

Fkmkspeed will allow you to enter machine language Ahoy! programs without any mistakes. Once you have typed the program 
in, save it for future use. While entering an ML program with Fkmkspeed there is no need to enter spaces or hit the carriage 
return. This is all done automatically. If you make an error in a line a bell will ring and you will be asked to enter it again. 
To LOAD in a program Saved with Fkmkspeed use LOAD "name", 1,1 for tape, or LOAD "name",8,l for disk. The function keys 
may be used after the starting and ending addresses have been entered. 
fl-SAVEs what you have entered so far. 
O — LOADs in a program worked on previously, 

f5-To continue on a line you stopped on after LOADing in the previous saved work, 

f7- Scans through the program to locate a particular line, or to find out where you stopped the last time you entered the program. 
It temporarily freezes the output as well. 



lOO POKE532SO,12:POKE53281,11 

105 PRIST"! CLEAR] [c 8][RVS0.N][15" "] FLANKSPEED [ 15" "]"; 

110 PRINT"[RVS0N][5" " JMISTAKEPR00F ML ENTRY PR0GRAMI6" 

]" 

11*3 PRINT"[RV50N][9" "]CREATED BY G. F. WHEAT[9" "]" 

120 FRINT"[RVSON][3" "JCOPR. 1987, TOM INTERNATIONAL INC, 

[3" ")" 

12 "5 FORA-54272T054296;FQKEA/J:NEXT 

130 POKE54272,4:POKE54273,48:POKE54277,0:POKE54278,249;PO 

KE54296.15 

135 FOR A=680TO699 ! READB : POKEA , B : NEXT 

140 DATA 169, 251, 166 ,253, 164, 254, 32, 216, 255, 96 

145 DATA169, 0,166,251,164,252,32,213,255,96 

150 B$="STARTING ADDRESS IN HEX":G0SUtS430: AD-B:SR-R 

1 5 5 GOSUB4 80 : 1 FB-0THES 1 50 

160 POKE251,T(4)+T(3)*16:POKE252,T(2)+T{1)*16 

165 BS-"ENDINC ADDRESS IN HEX":G0SUB430; EN-B 

170 GOSUB470:IFB-OTHEN15O 

175 POKE254,T(2)+T(l)*16 : B=T(4)+l+T{3)*16 

180 IFB>255THENB=B-255:P0KE254,PEEK{254)+1 

135 POKE253.B: PRINT 

190 REM GET HEX LINE 

195 G0SUB495: PRINT": [c P][LEFT]"; :FORA=OT08 

200 FORI1-OT01:GOT0250 

205 NEXTB 

210 A%(A)-T(1)+T(0)*16:IFAD+A-1-ENTHEN340 

215 PRINT" [c l'][LKKT]"i 

220 NEXTA:T=AD-(INT(AD/256)*256): PRINT" " 

225 FORA=OT07:T=T+A%(A):IFT>255THENT=T-255 

230 NEXT 

235 IFA7,(8)<>H!tENG0SUB375:COT0l95 

240 F0RA»OTO7:P0KEAD+A,A%(A):NEXT:AD=AD+S:GrrrO195 

245 REM GET HEX INPUT 

250 GETAS:IFAi=""THEN250 

255 IFA$-CHR$(20)THEN305 

260 IFA$-CHRS(133)THEN535 

265 IFAS»CHRS(134)T1IEN560 

270 IFAS=CHRS(135)THE.NPRINT" ":GOTO620 

275 [FAS=ORS(136)THENPRINT" ":G0T0635 

280 IFA$>"P"ANDAS<"G"THENT(B)=ASC(AS)-55:GOT0295 

285 IFAS>"/"ANDAS<":"THENT(B)=ASC(AS)-4e:G0T0295 

290 GOSUB4I5:GOT0250 

295 PKINTA$"[e P]tLEPT]"i 

300 GOTO205 

305 IFA>OTHEN320 

310 A— l:IFB=tTHEN330 

315 GOT0220 

320 IFB=0T!fENPRINTCHR$(20);CHRS(20);:A=A-l 

325 A=A-1 

330 PRINTCHR$(20);:COT0220 

335 REM LAST LINE 

340 PRINT" ":T-AD-(INT(AD/256)*256) 

345 FORB-OTQA-l:T-T+AZ(B):IFT>255THKNT-T-255 

350 NEXT 

355 IFAS(A)OTTHENG0SUB375:C0T0195 

360 F0RB-0T0A-1:P0!CEAD+B,A^(B):NEXT 

365 PRINT: PRINT"¥0U ARE FINISHED! ":GOT0535 

370 REM BELL AND ERROR MESSAGES 

375 PRINT: PRINTLINE ENTERED INCORRECTLY"': PRINT: GOT04 15 

380 PRINT; PR INT"INPUT A 4 DIGIT HEX VALUE! ";GOT0415 

385 PRINT: PRINT'ENDING IS LESS THAN STARTING !":B-0:COTO41 



OP :> IK 
FP -390 PRINT :PRINT"ADDRESS NOT WITHIN' SPECIFIED RANGE' ":B-0: 

GOT0415 UK 

JP -395 PRINT: PRINT"N0T ZERO PAGE OR ROM!";B=0:G0TO415 DM 

FA -400 PRINT"?ERROR IN SAVE":G0TO415 JK 

■405 PRINT" 7ERR0R IN L0AD":G0T0415 10 

AJ -410 PR I NT: PR I NT: PRINT" END OF ML AREA": PRINT JO 

ND "415 P0KE54276,17:PGKE54276,16:RETURN BF 

-420 0PEN15,a,15:INFUT<H5,A,AS:CLOSE15:PRINTA$:RETURN Dil 

NP -425 REM GET FOUR DIGIT HEX im 

FL -430 PRINT:PRINTB$;:INPUTT$ QL 

FF -435 IFLEN(T$)<>4THENGOS , JB380:GOTQ430 JD 

EK -440 FORA-lT04:A$=MIDS(TS,A,l):GOSUB450:IFr(A) = 16T(lENGOSUB 

KP 380:GOT0430 ax 

OF. -445 NEXT: B=(T(1)*4096)+(T(2)*256)+(T(3)*16)+T(4); RETURN KB 

AM -450 IFA$>"9"ANDAS<"G"THENT(A)»ASC(A$)-55:RETL)RN CM 

PE -455 IFA$>"/"ANDA$<":"THEN'T(A)"ASC(AS)-48:RETiJRN NJ 

PG -460 T(A)=1 6: RETURN J.C 

GM -465 REM ADDRESS CHECK OL 

KG -470 IFAD>ENTHEN385 HO 

EC -475 IFB<SR0RB>ENTHEN390 lg 

ED -480 IFB<2560R(B>40960ANDB<:49152)ORB>53247THEN395 OB 

KD -485 RETURN [)E 

IH -490 REM ADDRESS TO HEX pfj 

U -495 AC-AD: A=4096:GOSUB520 AP 

FA -500 A-256:GOSUB520 fJF 

EG -505 A=16:GOSUB520 LG 

II -510 A=1:GOSUB520 he 

GL -515 RETURN j D 

GI -520 T=INT(AC/A):lrr>9THENA$=CHR$(T+55):GOTO530 OC 

FL -525 AS=CHRS{T+48) Jl 

IM -530 PRINTA$;:AC=AC-A*T: RETURN AA 

PA '535 AS="**SAVE**":GQSUB585 ic 

GA -540 0PEN1,T,1,AS;SIS680:CL0SE1 AB 

CO -545 IFST-OTHENENI) KB 

LH -550 COSUB400:IFT-8THENG0SUB420 PM 

IC -555 GOT0535 FI 

HO -560 AS="**LOAD**":COSUB585 pe 

HE -565 QPEN1,T,O.AS:SYS690:CLOSE1 po 

MI -570 IFST=64THEN195 oi 

DJ -575 G0SUB405:IFT=8THENGQSUB420 CO 

JA -580 GOT0360 GN 

PK -585 PRINT" ":PRINTrAB( 14) AS KA 

FA -590 PRINT: A$."":INPl!T"FILENAMK"jA$ 10 

BI -595 IFA$=""THEN590 [f K 

BB -600 PRINT: PRINT"TAPK OR DISK?": PRINT HL 

FA -605 GETB$:T=1:IFB$="D"THENT=8:AS=."@0:"+A$: RETURN NP 

BF -610 IFB$O"T"THEN605 KO 

FK -615 RETURN ph 

PH -620 B$="CONTINUE FROM ADDRESS" :G0SUB4 30: AD-B DD 

CP -62 5 GOSUB475:IFB-OTHEN620 NK 

KH -630 PRINT: G0TO1 95 HN 

OD -635 B$-"BEGIN SCAN AT ADDRESS" :GOSUB430:AD=B FK 

OB -640 GOSUB475:IFB-0THEN635 LN 

LH -645 PRINT:COT0670 HI 

BO -650 FORB=OT07: AC-PEEK (AD+R) :GOSUB505:IFAD+B=ENTHENAD=SR:G 

MB 0SUB410:GOT0195 LM 

I.M -655 PRINT" ";:NEXTB LE 

JK -660 PRINT: AD-AD+8 CD 

PG -665 GETB$:IFBS-CHR$(136)THEN195 JD 

■670 G0SUB495:PRINT": ";:GOT0650 KE 
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IMPORTANT I betters on white background are Bug Repellent line codes. Do not enter them! Pages 77 and 78 explain these codes 
I IVI rlin I Ml V I l and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 



FROM PAGE 31 



5 REM BATTER UP! BY JC HILTY 3/87 BE 
10 G0SUB745 DE 

15 G0SUB515 CM 

20 B=0:K=0:0T=0:R=0:X=1 FC 

25 IFIN-10THEN1050 LC 

30 P0KE2040 , 200 : FOKE2042 , 202 : FORT=0TO500 
:NEXT P0 

35 PRINT" [HOME] [DOWN] [RVS0N] [BLACK ]"TAB( 
2)B;TAB(5)K;TAB(9)0T;TAB(14)IN FH 
40 IF0T=3THEN420 JI 

45 IFK=3THEN0T=0T+1 : G0SUB105 : K-0:B=0 : GOT 
035 GL 

50 IFB-4THENGOSUB380 : B=0 : K»0 : G0SUB105 : GO 
T035 HF 

55 PRINT"[H0ME][7"[D0WN]"]"TAB(22)"[12" 
"]" IA 

60 PRINT" [ HOME ][ 7" [ DOWN ]"][ YELLOW )"TAB( 2 
2)P$(X);" ";PA(X):G0SUB690:F0RT=0T01000: 
NEXT ND 

65 POKE2042 , 203 : FORT=OT0300 : NEXT : P0KE204 
2 , 204 : FORT=0TO200 : NEXT IF 

70 Z=INT(8*RND(1)+1) FO 

75 0NZG0SUB120, 130, 120, 140, 120, 150, 120,1 
60 PH 

80 W=206 PH 

85 FB=-((PEEK< 56320) AND16)=0) LH 

90 IFFB=1THENP0KE2040 , 208 : POKEV+21 , 31 : GO 
TO 170 AB 

95 P0KE2044 ,W: F0RT=0T050 : NEXT : W=W+1 : IFW= 
208THEN185 HJ 

100 GOT085 FN 

105 X=X+1:IFX=10THENX=1: RETURN I A 
110 RETURN PM 

115 REM COMPUTER PITCHES FK 

120 POKEV+8, 88: POKEV+9, 162: POKEV+21, 23 :F 
0RT=0T050 : NEXT : POKEV+9 ,172 MK 

125 RETURN AL 

130 POKEV+8 , 88 : POKEV+9 , 162 : POKEV+21 , 23 : F 
0RT=0T050 : POKEV+9 , 145 GD 

135 RETURN BF 

140 POKEV+8 , 88 : POKEV+9 , 162 : POKEV+21 , 23 : F 
0RT=0T050 : POKEV+9, 172 : POKEV+8 ,120 JK 
145 RETURN BP 

150 POKEV+8 ,88: POKEV+9, 162: POKEV+21, 23 :F 
0RT=0T050 : POKEV+9 , 200 : POKEV+8 , 70 IL 
155 RETURN CJ 

160 POKEV+8 , 88 : POKEV+9 , 162 : POKEV+21 , 23 : F 
0RT=0T050 : POKEV+9 , 200 : POKEV+8 , 1 00 AC 
165 RETURN DD 

170 FORT=OT0150:NEXT:IFZ=10RZ=30RZ=50RZ= 
7THEN205 EP 

• 175 K=K+1 : FORT=OT0200:NEXT : POKEV+21 , 7 : E$ 
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=" STRIKE" EI 

180 GOT0260 ME 

185 IFZ=10RZ=30RZ=50RZ=7THENE$="STRIKE": 
K=K+ 1 : F0RT=0T0500 : NEXT : G0T0195 AL 
190 E$="BALL" : B=B+1 : FORT=0T0500 : NEXT IN 
195 POKEV+21, 7 :G0TO26O HC 

200 REM BATTER HITS BALL FN 

205 GOSUB705: POKEV+21, 7 :E=RND( 5 )+PA(X)/l 
000 PD 

210 IFE>1,1THENE$="H0ME RUN":G0SUB285:B= 
0:K=0:GOSUB105:G0T0260 NF 

215 IFE> . 9THENE$="TRIPLE" : GOSUB310: B»0: K 
=0 : GOSUB105 : GOT0260 OC 

220 IFE> . 8THENES="D0UBLE" : GOSUB335: B=0 : K 
=0:GOSUB105:GOTO260 PA 

225 IFE> . 6THENE$= ,, SINGLE" : G0SUB380 : B=0 : K 
=0:GOSUB105:GOTO260 JO 

230 IFE>.5THENE$="FOUL BALL n :G0SUB245:G0 
T0260 OG 

235 IFE>.3THENE$="GR0UND 0UT":0T=0T+1:G0 
SUB 105 : B=0 : K=0 : G0T0260 LJ 

240 E$="FLY 0UT":OT=0T+l:B=0:K=0:GOSUB10 
5:GOT0260 BA 

245 IFK<2THENK=K+1: RETURN DL 

250 RETURN II 

255 REM DISPLAY HITTING RESULTS KN 
260 PRINT" [HOME] [13" [DOWN]"] [YELLOW] "TAB 
(27)E$ CL 

265 FORT=Or02500:NEXT ND 

270 PRINT" [ HOME] [ 13" [ DOWN ] " ] [ RVSON ] [ GREE 
N]"TAB(27)"[10" "]" CE 

275 G0T025 AD 

280 REM HOMERUN MB 

285 IFR=0THENYS=YS+1 :R=0 : G0SUB455 : G0SUB5 
10: RETURN IK 

290 IFR=10RR=20RR=4THENYS=YS+2:R=0:GOSUB 
455:GOSUB510:RETURN GJ 

295 IFR=30RR=50RR=6THENYS=YS+3 : R=0 : GOSUB 
455 -.GOSUB510: RETURN PI 

300 IFR=7THENYS=YS+4:R=0:E$="GRAND SLAM" 
:GOSUB455:GOSUB510: RETURN BF 

305 REM TRIPLE JK 

310 IFR=0THENR=4:GOSUB455: RETURN PD 
315 IFR=10RR=20RR=4THENYS=YS+1 : R=4 : GOSUB 
455:G0SUB510:RETURN CJ 

320 IFR=30RR=50RR=6THENYS=YS+2 : R=4 : GOSUB 
455 : G0SUB510 : RETURN IA 

325 IFR=7THENYS=YS+3 : R=4 : G0SUB455 : G0SUB5 
10: RETURN CN 

330 REM DOUBLE JK 

335 IFR=0THENR=2:G0SUB455: RETURN BM 
340 IFR=1THENR=6:G0SUB455: RETURN CK 
345 IFR=2THENYS=YS+l:R=2:GOSUB455:GOSUB5 
10: RETURN KK 

350 IFR=3THENYS=YS+l:R=6:GOSUB455: RETURN IF 
355 TFR=4THENYS=YS+1:R=2:G0SUB455:G0SUB5 



10: RETURN NG 

360 IFR=5THENYS=YS+1 : R=6 ; G0SUB455 : G0SUB5 
10: RETURN PI 

365 IFR-6THENYS-YS+2 :R=2 : GOSUB455 : G0SUB5 
10: RETURN PB 

370 IFR=7THENYS=YS+2 : R=6 : GOSUB455 : G0SUB5 
10: RETURN CD 

375 REM SINGLE OR WALK JP 

380 IFR=0THENR=1:G0SUB455: RETURN AA 
385 IFR=1THENR=3:G0SUB455: RETURN FE 
390 IFR=3THENR=7:G0SUB455: RETURN JF 
395 IFR=4THENYS=YS+1 : R=l : G0SUB455 : G0SUB5 
10 : RETURN EP 

400 IFR=5THENYS=YS+1 : R=3 : G0SUB455 : G0SUB5 
10: RETURN DL 

405 IFR=6THENYS=YS+1 :R=5 : G0SUB455 :G0SUB5 
10: RETURN NP 

410 IFR=7THENYS=YS+1 :R=7:G0SUB455:G0SUB5 
10: RETURN HD 

415 IFR=2THENR=5:G0SUB455: RETURN CP 
420 I=INT(4*RND(6)) PJ 

425 PRINT" [ HOME ][ 13" [DOWN]"] [ YELLOW ]"TAB 
(22) "COMPUTER "I:G0SUB720 EO 

430 CS=CS+I : PRINT" [HOME] [ 13" [ DOWN ] " ] [RVS 
0N][GREEN]"TAB(22)"[12" "]" GL 

435 PRINT" [HOME] [4"[D0WN]"][ YELLOW ]"TAB( 
32)CS:G0SUB105 BB 

440 IN=IN+1 : B=0 : K=0 : R=0 : 0T=0 : G0SUB455 HN 
445 G0T025 LF 

450 REM PLACE BASERUNNERS AP 

455 R=R+1:ONRGOSUB465,470,475,480,485,49 
0,495,500 DP 

460 R=R-1: RETURN LI 

465 POKEFI , 160 : POKES N , 160 : POKETH , 160: RET 
URN BK 

470 POKEFI, 86: POKES N, 160: POKETH, 1 60 :RETU 
RN BL 

475 POKESN , 86 : POKEFI , 160 : POKETH , 160 : RETU 
RN AM 

480 POKETH , 160 : POKESN , 86 : POKEFI , 86 : RETUR 
N LG 

485 POKETH , 86 : POKESN , 160 : POKEFI f 160 : RETU 
RN OG 

490 POKESN , 160 : POKETH , 86 : POKEFI , 86 : RETUR 
N LI 

495 POKEFI , 160 : POKESN , 86 : POKETH , 86 : RETUR 
N JB 

500 POKEFI , 86 : POKESN , 86 : POKEFI , 86 : RETURN FJ 
505 REM UPDATE SCORE KN 

510 PRINT" {HOME ] [3"[D0WN]"] [ YELLOW ]"TAB( 
32 )YS: RETURN GI 

515 REM PLAYING FIELD NE 

520 POKE53281,8:POKE53280,0 BP 

525 PRINT" [ CLEAR ][RVSON][ BLACK] [3" "]B 
S OUT INN[3" "][c 7][19" "]" DD 
530 PRINT" [ RVSON ][ BLACK] [20" "][ c 7] [19" 
"]" ML 

535 PRINT"[RVS0N][BLUE][20" "][c 7] [BLA 



CK][16" "][c 7] " ME 

540 F0RT=0TO2 : PRINT" [RVSON][ BLUE] [20" "] 
[c 7] [BLACK] "TAB(36)" [c 7] ":NEXT BJ 
545 PRINT"[RVSON][c 2] [20" "][c 7] [BLAC 
K] "TAB(36)" [c 7] " LL 

550 FORT=0T01 : PRINT" [RVSON][ GREEN] [20" " 
][c 7] [BLACK] "TAB(36)" [c 7] ":NEXT KH 
555 PRINT" [RVS0N][ GREEN] [20" "][c 7] [BL 
ACK][16" "][c 7] " MJ 

560 PRINTTAB(20)" [RVSON] [c 7] [BLACK] [ 
c 7][12" "][BLACK] [c 7][3" "]" GE 
565 PRINT" [RVSON] [GREEN] [20" "][BLUE] [ 
BLACK] [BLUE] [12" "][ BLACK] [BLUE] [3" "] 
" .' EB 

570 PRINT" [RVSON] [GREEN] [21" "][s N][15" 

"][s M] " FD 

575 PRINT" [RVSON] [6" "] [RVS0FF][sEP][6" 
"][c *][RVS0N][6" "][s N][17" "][s M]" AL 
580 PRINT" [RVSON] [20" "] [s M] [17" "] [s N 
]" OD 

585 PRINT" [c *] [RVSON] [18" "] [RVSOFF][sE 
P][RVSON] [s M][15" "][s N] " AD 

590 PRINT" [c *] [RVSON] [16" "][RVSOFF][s 
EP] [RVSON] [s M][13" "][s N] " KE 
595 PRINT" [c *][RVS0N][14" "][RVSOFF][ 
SEP] [RVSON] [3" "][s M][5" "] [WHITE] [G 
REEN][5" "][s N][3" "]" AP 

600 PRINT" [3" "][WHITE][5"[c P]"][4" "][ 
5"[c P]"][3" "] [RVSON] [GREEN] [4" "][s M] 
[3" "][s N] [s M][3" "][s N][4" "]" JG 
605 PRINT" [WHITE] [s N][4" "][s N][4" " 
][s M][4" "][s M] [RVSON] [GREEN] [5" "][ 
s M] [s N][3" "][s M] [s N][5" "]" HB 
610 PRINT" [WHITE] [s N][4" "][s N] [RVSO 
N][4" "][RVSOFF] [s M][4" "][s M] [RVSON 
][ GREEN] [6" "][WHITE] [GREEN] [s Z] [W 
HITE] [GREEN][6" "]" DL 

615 PRINT"[ WHITE] [s N][4" "][s N] [c *] 
[RVSON] [RVSOFF][sEP] [s M][4" "][s M] 
[RVSON] [GREEN] [7" "][s M][3" "][s N][7" 
"]" FL 

620 PRINT" [WHITE] [4" "][s N]"TAB(15)"[s 
M][4" "] [RVSON] [GREEN] [8" "][s M] [s N][ 
8" "]" FM 

625 PRINT" [ WHITE] [ 4" [c Y]"]"TAB(16)"[4"[ 
c Y]"][ RVSON] [GREEN] [9" "] [WHITE] [GREEN 
][9" "]" FP 

630 FORX=2004TO2022 ;POKEX , 160 : POKEX+5427 
2 f 5:NEXT KO 

635 X=1063 : FORT=0TO24 : POKEX , 160 : POKEX+54 
272, 0:X=X+40: NEXT BD 

640 PRINT" [HOME] [3"[ DOWN ]"][ YELLOW ]"TAB( 
22)T$;TAB(32)YS:PRINT"[H0ME][4"[D0WN]"]" 
TAB(22)C$;TAB(32)CS CH 

645 PRINT"[H0ME][6"[D0WN] M ]"TAB(22)"NOW 
BATTING" JF 

650 POKEV+16,0:POKEV+27,0:POKEV+23,15:PO 
KEV+29,15:POKEV+28,7 OC 
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655 POKEV+37,10:P0KEV+38,0 OA 

660 POKE2040 , 200 : P0KEV+39 , 7 : POKEV , 30 : POK 
EV+1,150 HM 

665 P0KE2041 , 201 :P0KEV+40, 1 :P0KEV+2, 30 :P 
OKEV+3,192 NA 

670 P0KE2042 , 202 : P0KEV+41 , 6 : POKEV+4, 78 : P 
OKEV+5,120 LA 

675 POKE2043 , 209 : POKEV+42 , : P0KEV+6 , 64 : P 
OKEV+7,160 LP 

680 P0KE2044 , 205 : POKEV+43 , 1 : POKEV+8 , 80 : P 
OKEV+9,192 MI 

685 P0KEV+21, 7: RETURN MA 

690 FORT=OT024:P0KES+T,0:NEXT PG 

695 POKES ,150; POKES* 1 , 200 : POKES+5 , 8 : POKE 
S+6 , 248 : P0KES+24 , 15 : POKES+4, 17 AM 
700 F0RT=OT00500 : NEXT : POKES+4 ,16: RETURN EP 
705 FORT=OT024:POKES+T,0:NEXT MH 

710 P0KES+24, 15 :P0KES+1, 80; POKES+5, 80 :P0 
KES+6,245 MN 

715 POKES+4 , 129 : FORT=0TQ100 : NEXT: POKES+4 
,128: RETURN CK 

720 F0RT=0T024:P0KES+T,0:NEXT MA 

725 P0KES+18,128;P0KES,75:P0KES+6,240:P0 
KES+14,12:P0KES+15,250:P0KES+24,207 NH 
730 F0RL=0T030 : POKES+4 ,17: POKES+1 , PEEK ( S 
+27) HJ 

735 FORT=OTO 1 00 : NEXT : NEXT : POKES+4 , ME 
740 RETURN HE 

745 P0KE53281, 12 :POKE53280,0: PRINT" [CLEA 
R][6"[DOWN]"][BLUE]"TAB(14)"[12"*"]" EG 
750 PRINTTAB(14)"*[10" "]*":PRINTTAB(14) 
"*BATTER UP!*" NL 

755 PRINTTAB(14)"*[10" "]*":PRINTTAB(14) 
"[12"*"]":PRINTTAB(19)"BY" GN 

760 PRINTTAB(16)"JC HILTY": PRINT: PRINT PE 
765 PRINT"PLEASE WAIT WHILE WE BUY SOME 
PEANUTS,." HC 

770 DIMPA(9),P$(9):YS SS 0:CS»0:IN=1:SN=173 
3:TH=1850:FI=1856 FB 

775 S=54272:V=53248 DO 

780 F0RX=12800TO13438 : READA : POKEX , A : NEXT JB 
785 F0RX=1T09:READP$(X):NEXT CE 

790 PRINT" [CLEAR] [DOWN] PLEASE ENTER THE 
NAME OF YOUR TEAM[4"."]" CA 

795 PRINT" [4"."] UP TO 10 LETTERS." OK 
800 INPUTT$:TFLEN(T$)>10THEN790 JM 
805 IFLEN(T$)<1THENT$="PITTSBURGH" DD 
810 PRINT" [CLEAR] [DOW] PLEASE ENTER THE 
COMPUTER TEAM'S NAME.." HH 

815 PRINT"., UP TO 10 LETTERS." JF 
820 INPUTC$:IFLEN(C$)>10THEN810 JF 
825 IFLEN(C$)<1THENC$= ,, NEW YORK" IH 
830 F0RX=1T09:PA(X)=INT(300*RND(5)+100) : 
NEXT NJ 

835 PRINT" [CLEAR][ DOWN] LINEUPS AND BATTI 
NG AVERAGES": PRINT :PRINTT$: PRINT AE 
840 F0RX=1T09:PRINTP$(X);" ";PA(X) :NEXT: 
PRINT: PRINT CC 

82 AHOY! 



845 PRINT"PRESS P TO PRINT LINEUP ON PRI 
NTER[4 , V]" EA 

850 PRINT" [4"."] ANY OTHER KEY TO CONTINU 
E." HP 

855 GETA$:IFA$=""THEN855 NJ 

860 IFA$="P'*THENGOSUB1030 KB 

865 RETURN PC 

870 REM SPRITE DATA NE 

875 DATA 240,42,0,240,42,0,240,42,128,25 
2,42,160,60,41,64,60,41,64,63,53,64 10 
880 DATA 3,53,64,3,205,0,2,234,0,10,250, 
128,10,186,128,14,190,128,53,94,128 DJ 
885 DATA 53,93,240,61,171,112,10,169,112 
,10,170,240,15,170,0,15,252,0,15,252,0 OJ 
890 DATA CK 

895 DATA 10,170,0,10,170,0,10,170,128,10 
,171,128,10,174,128,2,174,128 PD 

900 DATA 2,174,128,2,174,128,2,174,128,2 
,174,0,2,174,0,10,170,0,10,186,0 FB 
905 DATA 10,191,240,10,188,0,10,128,0,11 
,192,0,15,252,0,15,0,0,0,0,0,0,0,0,0 ML 
910 DATA 0,10,0,0,42,0,0,5,0,0,5,0,0,1,0 
,0,10,128,0,42,160,0,170,168,0,138,136 LO 
915 DATA 0,138,136,0,169,168,0,15,192,0, 
10,128,0,10,128,0,8,128,0,8,128 FN 
920 DATA 0,8,128,0,12,192,0,12,192,0,60, 
240,0,0,0,0 HC 

925 DATA 0,10,0,0,42,0,0,5,0,0,5,0,0,1,0 
,0,10,0,0,10,0,0,10,0,0,10,0,0,10,0 BN 
930 DATA 0,10,0,0,15,0,0,1,0,0,2,0,0,2,0 
,0,2,0,0,2,0,0,3,0,0,3,0,0,15,0 JF 
935 DATA 0,0,0,0 HI 

940 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,10,0,0,10,36,0,165,128,0,170,0 NO 
945 DATA 0,138,48,0,138,128,0,138,0,0,66 
,0,0,2,0,0,2,0,0,3,0,0,0,0,0,0,0 AC 
950 DATA 0,0,0,0,0,0,0 IC 

955 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,24,0,0,60,0,0,24,0 JE 
960 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0.0.0.0.0,0,0,0,0,0,0,0,0,0 JH 
965 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,24,0,0,60,0,0,126,0,0,60,0 KG 
970 DATA 0,24,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 BI 
975 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,60,0,0,255,0,0,255,0,0,255,0 JC 
980 DATA 0,255,0,0,60,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 PP 
985 DATA 0,42,0,0,42,0,0,42,128,0,42,160 
,0,41,64,0,41,64,0,21,64,0,21,64 AM 
990 DATA 0,165,0,2,170,0,2,170,128,2,170 
,128,2,170,128,2,170,128,10,170,128 CN 
995 DATA 10,170,128,10,170,128,10,170,0, 
15,234,0,15,252,0,15,252,0,0 AA 

1000 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,124,135,255,252 MG 
1005 DATA 255,255,252,128,63,252,0,0,0,0 



,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 EC 

•1010 DATA 0,0,0,0,0,0,0 NO 

•1015 REM PLAYER NAMES KL 

•1020 DATA ROCKY, SPIKE, PETE, WILLIE, HAMMER 

f JIM, MOOSE .BOOMER, HAWK EG 

•1025 REM PRINTOUT LINEUP BN 

•1030 PRINT" [ CLEAR ][ DOWN ] [ DOWN ]MAKE SURE 

PRINTER IS 0N[4"."]":PRINT"[4"."]PRESS A 

NY KEY." DG 

•1035 GETA$:IFA$=""THEN1035 MC 

•1040 0PEN3, 4, 0:PRINT#3, "LINEUP AND AVERA 

GES FOR ";T$ MA 

•1045 FORX=dT09:PRINT#3,P$(X);" ";PA(X):N 

EXT:CL0SE3 JF 

•1046 PRINT ;PRINT"PRESS ANY KEY TO BEGIN 

GAME." AO 

•1047 GETA$:IFA$=""THEN1047 LB 

•1048 RETURN KK 

•1049 REM GAME OVER AK 

•1050 POKEV+21,0 HB 

•1055 P0KE53281,0:P0KE53280,0: PRINT" [CLEA 

R][8"[D0WN]"][c 7]"TAB(I4)"[12"*"j" EN 

•1060 PRINTTAB(14)"*SC0REB0ARD*":PRINTTAB 

(14)"[12"*"]":PRINT:PRINT DJ 

•1065 PRINTTAB(14)T$;YS:PRINTTAB(14)C$;CS HM 
•1070 END LC 



FROM PAGE 32 



SCRNSWAP.ASM 



2 "* SCRNSWAP.ASM 

3 "* RUPERT REPORT #44 

A '<************************************* 

5 REM USE INTERRUPT ROUTINE TO READ 

6 REM 40/80 COLUMN MODE OF C-128 

7 REM AND SWITCH A RELAY TO ENABLE 

8 REM THE SELECTED VIDEO OUTPUT 

lfi tl********* ********** ***************** 

II "************************************ 

105 "SYS EQU $0A00 ; SYSTEM VECTOR 

106 "IRQ EQU $0314 ;IRQ VECTOR 

107 "MODEFLG EQU $D7 

108 "* BIT 7=1/0= 80/40 COL MODE 

109 "** ***************************** ** ** 

110 "* 

III " ORG $1500 

112 "* 

113 "INIT ;SYS 5376 FROM BASIC 

114 "* SET UP IRQVEC 

115 " LDA IRQVEC ;BEEN HERE BEFORE? 

116 " BNE INIT1 ;YES, SKIP IT 

117 " LDA IRQVEC+1 

118 " BNE INIT1 ; ALREADY BEEN HERE 



119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 



LDA IRQ ;SAVE IRQ VALUE 

STA IRQVEC 
LDA IRQ+1 
STA IRQVEC+1 

* SAVE OLD SYSTEM VECTOR 

LDA SYS ;GET CURRENT VALUE 

STA SYSVEC ;SAVE IT 

LDA SYS+1 

STA SYSVEC+1 
'* MAKE SYSTEM VECTOR POINT TO US 
1 LDA #<RESTART ;GET LSB 
1 STA SYS 

LDA #>RESTART 

STA SYS+1 
INIT1 

JSR CONFIG 

RTS 
* 

* SYS POINTS HERE »»»»»» 
* 

RESTART 

JSR CONFIG 

JMP (SYSVEC) 
CONFIG 

LDA MODEFLG 

AND #$80 

STA PREVMD 

JSR RELAY 



;GET MSB 



;GET MODE/SET IRQ 
;BACK TO BASIC 



;GET MODE/SET IRQ 
; CONTINUE WARM BOOT 



;READ MODE 
;BIT 7 ONLY 
•SAVE IT 
;SET RELAY ON/OFF 
'* POINT IRQ TO OUR ROUTINE 
' SEI ; DISABLE INTR 

1 LDA #<MAIN ;PT IRQ TO MAIN 

' STA IRQ 
1 LDA #>MAIN 
1 STA IRQ+1 

1 CLI ; ENABLE INTR 

' RTS ; RETURN 

I*******!):*!}:*** ****** ************** 



PREVIOUS MODE 
ORIG IRQ VECTOR 
ORIG SYS VECTOR 



PREVMD DFB $80 

IRQVEC DA $0000 

SYSVEC DA $0000 
•* 

'* IRQ VECTOR POINTS HERE »»»» 
•* 

'MAIN 

** CHECK MODE 

' LDA MODEFLG 

' AND #$80 

' CMP PREVMD 

1 STA PREVMD 

BEQ EXIT 

JSR RELAY 
EXIT 

JMP (IRQVEC) ; CONTINUE IRQ 

**** ** ********* *** ********* ***** 

"* USE PREVMD TO TURN RELAY ON/ OFF 
RELAY 
LDA $0 ;SET DDR TO OUTPUT 

ORA #$10 -SET BIT 4 

AHOY! 83 



;GET CURRENT MODE 
;BIT 7 

;MODE CHANGE? 
;(SAVE CURRENT MODE) 
;N0 MODE CHANGE 
;YES, SET RELAY 



Ift/I PORTA MTf Lct,ers on white background are Bug Repellent line codes. Do not enter them! Pages 77 and 78 explain these codes 
HYll Un I HIM I I and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 



177 " STA $0 

178 " LDA $1 

179 " AND #$EF 

180 " STA $1 

181 " LDA #1 

182 " STA $00C0 

183 " BIT PREVMD 

184 " BMI RLYON 

185 "RLYOFF 

186 " LDA $1 

187 " ORA #$20 

188 " STA $1 

189 " LDA $D011 

190 " ORA #$10 

191 " STA $D011 

192 " LDX #0 

193 " STX $D030 

194 " RTS 

195 "RLYON 

196 " LDA $1 

197 " AND #$DF 

198 " STA $1 

199 " RTS 



;READ I/O PORT 
; CLEAR BIT 4 

;N0N-0 TO 192 
; INTERLOCK BYTE 
;BIT 7=1(80 COL.)? 
;YES, TURN RLY ON 
;NO, TURN IT OFF 
;READ I/O PORT 
;SET BIT 5 
; RELAY OFF 
;SET SLOW MODE 
;SET BIT 4 
;UNBLANK VIC 

;SET SLOW SPEED 



;READ I/O PORT 
; CLEAR BIT 5 
; RELAY ON 

SCRNSWAP.LOADER 



100 REM===~===========^ S =============== DE 

110 REM SCRNSWAP LOADER CA 
120 REM RUPERT REPORT #44 DP 
130 REM FOR CI 28 ONLY BL 

150 PRINT"LOADING [3"."]" AJ 

160 M=5376 :REM $1500 INITIAL ADDRESS « OD 

JE 
KP 
EH 
JG 
CL 
PL 
AA 



:REM CHECKSUM 



170 READ B$ 

180 IF B$="XX" THEN 240 

190 B=DEC(B$) 

200 CK=CK+B 

210 POKE M,B 

220 M=M+1 

230 GOTO 170 

240 IF CKO 12298 THEN PRINT"DATA ERROR" 

: STOP :REM <««« NF 



250 PRINT"PROGRAM IS LOADED" 



JF 



260 SYS 5376 
270 END 
5376 DATA AD 
5384 DATA DO 
5392 DATA AD 
5400 DATA OA 
5408 DATA 51 
5416 DATA 15 
5424 DATA 20 
5432 DATA 29 
5440 DATA 78 
5448 DATA 8D 
5456 DATA 03 
5464 DATA 15 
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:REM $1500 START ADDRESS « CD 

IP 
15 MP 
15 AH 
00 GC 
8DKA 
A9 DH 
60 NK 
D7 AL 
15 LI 
15 NB 
FAIH 
4D0B 
64 BA 



, 4E, 


15, 


DO, 


27, 


AD, 


4F t 


, 22, 


AD, 


14, 


03, 


8D, 


4E, 


. 15, 


03, 


8D, 


4F, 


15, 


AD, 


, 8D, 


50, 


15, 


AD, 


01, 


OA, 


, 15, 


A9, 


30, 


8D, 


00, 


OA, 


, 8D, 


01, 


OA, 


20, 


36, 


15, 


, 36, 


15, 


6C, 


50, 


15, 


A5, 


, 80 ( 


8D, 


4D, 


15, 


20, 


64, 


, A9, 


52, 


8D, 


14, 


03, 


A9, 


, 15, 


03, 


58, 


60, 


80, 


65, 


, 40, 


A5, 


D7, 


29, 


80, 


CD, 


, 8D, 


4D, 


15, 


FO, 


03, 


20, 



09, 


10 GN 


85, 


01 MH 


15, 


30 


KE 


01, 


AD 


PD 


DO, 


A2 


MM 


01, 


29 


AB 
IL 
NL 



•5472 DATA 15, 6C, 4E, 15, A5, 00, 

•5480 DATA 85, 00, A5, 01, 29, EF, 

•5488 DATA A9, 01, 85, CO, 2C, 4D, 

•5496 DATA 14, A5, 01, 09, 20, 85, 

•5504 DATA 11, DO, 09, 10, 8D, 11, 

•5512 DATA 00, 8E, 30, DO, 60, A5, 

•5520 DATA DF, 85, 01, 60 

•5524 DATA XX 

BANNER PRINT 

FROM PAGE 22 



•10 G0T01130 FA 

-20 IFER=30THENTRAP20:GOT0910 FL 

•30 SLOW: C0L0R4 , 3 : COLORO , 3 : COLORS , 2 : GRAPH 
ICO , 1 : PRINT"ERROR : " ; : IFDS>OTHENPRINTDS$ 
:ELSEPRINTERR$(ER):PRINTTAB(7)"IN LINE"E 
L LK 

•40 PRINT" [DOWN] [DOWN] PR ESS ANY KEY TO CO 
NTINUE":GETKEYA$:C0L0R4, 1: COLORO, 1 : GRAPH 
IC1:TRAP20:GOT0940 KO 

•50 COLOR1,2:IFDR=OTHEN80 OG 

■60 LOCATECX-24,CY-50:IFRDOT(2)=1THENDRAW 

0,CX-24,CY-50:ELSEDRAWl,CX-24,CY-50 JB 
•70 GOTO 150 GC 

•80 C0L0Rl,2:X=INT((CX-24)/8):Y=INT((CY-5 
0)/8):SPRITEl,0:SPRITE2,l,7 JF 

•90 M0VSPR2 , X*8+24 , Y*8+50 : GETKEYA$ : IFA$=C 
HR$(13)THENSPRITE1,1:SPRITE2,0:G0T0130:E 
LSEIFA$=CHR$C20)0RA$="[LEFT]*'THENX=X-(1A 
NDX>0):G0T090 IN 

•100 IFA$=" [ RIGHT] "THENX=X+( 1ANDXC9) : GOT 
090:ELSEIFA$<" "THEN90 KP 

■110 CHAR1 , X , Y , P$+A$ , 1 : X=X+1 : IFX=40THENX= 
NP 

•120 G0T090 GL 

■130 J=JOY(2):GETA$:IFA$<>""THEN220 LH 
■140 IFJ>127THENJ=J~128:G0T0310 GL 
•150 IFCY<180ANDCY>81THENCX=CX+XX(J) :CY=C 
Y+YY(J):ELSECX=CX+XX(J)*5:CY=CY+YY(J)*4 CF 
• 160 IFCX<24THENCX=24 : ELSEIFCX>332THENCX= 
332 EE 

•170 IFCY<50THENCY=50 : ELSEIFCY>248THENCY= 
248 EI 

•180 IFDR=3THENBEGIN:IFCY<196THENCY=196:E 
LSEIFCX<26THENCX=26:ELSEIFCX>262THENCX=2 
62 BA 

•190 BEND NP 

■ 200 M0VSPR1 , CX , CY : IFDR>1THENM0VSPR3 , CX , C 
Y DI 

•210 G0T0130 01 

•220 IFA$="[UP]"THENCY=CY-8:ELSEIFA$="[D0 
WN ] "THENCY=CY+8: ELSEIFA$=" [ LEFT ] "THENCX= 
CX-8 : ELSEIFA$="[ RIGHT ] "THENCX=CX+8 PP 
•230 IFA$=CHR$(13)THENJ=128:GOT0140 KB 
•240 IFA$=" "ANDDR=3THEN520 IB 



CE 



LD 

PL 

00 

DL 
FG 
HJ 

EA 



250 IF(A$<"C"ORA$>"W")ORDR>1THEN160 
260 IFA$="D"THEN360 : ELSEIFA$="T"THEN370 
ELSEIFA$="E"THEN380 

270 IFA$="L"THEN390:ELSEIFA$="H"THEN410 
ELSEIFA$="M"THEN430 

280 IFA$="P"THEN530: ELSEIFA$="0"THEN720 
ELSEIFA$="C"THEN850 

290 IFA$="G"THEN870:ELSEIFA$="S"THEN890 
ELSEIFA$="Q"THEN910 
300 GOTO 160 

310 IFDR=3THEN490:ELSEIFDR=2THEN460 
320 IFCY<180ANDCY>81THEN50 
330 FORI=OT011:IFCX>TX(I)ANDCX<BX(I)ANDC 
Y>TY(I)ANDCY<BY(I)THEN350 PF 

340 NEXT: GOTO 160 CF 

350 0NI+1G0T0360 , 370 , 380 , 390 , 410 , 430 , 530 
,720,850,870,890,910 KM 

360 G0SUB970:G0T0130 OP 

370 GOSUB980:GOT0130 OC 

380 A$="ERASE BANNER :":GOSUB920:IFRTHENG 
OSUB 1060: GOTO 130: ELS El 30 GC 

390 C0L0R1, 16: CHAR 1,0, 17, "ENTER BANNER L 
ENGTH (1-120) :":N=1:MX=3:X=31:Y=17:G0SU 
B1000 : IFZ$=""THEN940 JM 

400 IFZ<10RZ>120THEN390:ELSEL=Z:GOSUB106 
0:GOT0940 GI 

410 C0L0R1, 16 :CHAR1, 0,17, "ENTER BANNER H 
EIGHT (8-24) :":N=1:MX=2:X=28:Y=17:G0SUB 
1000:IFZ$=""THEN940 DD 

420 IFZ<80RZ>24THEN410:ELSEH=Z:G0SUB1060 
:G0T0940 CL 

430 DR=2:C0L0R1,2:CHAR1,2,17,"SELECT ARE 
A TO MAGNIFY & PRESS FIRE" JD 

440 F0RI=18T024:CHAR1,0,I,BL$:NEXT HC 
450 SPRITEl,0:CX=24:CY=81:MOVSPR3,24,81: 
SPRITE3,1,6,,1:G0T0130 HF 

460 FAST:CHARl t O,17,BL$:CHARl,3,17,"PRES 
S SPACE BAR TO RETURN" :DR=3:X=CX-24: Y*=CY 
-50:0X=X :OY=Y : F0RJ=YT0Y+13 :FORI=XTOX+47 DC 
470 L0CATEI,J:A=(I-X)*5:B=(J-Y)*4+144:IF 
RD0T(2)THENB0X1,A,B,A+4,B+3,,I MF 
480 NEXT: NEXT: SPRITE3.0: SLOW: SPRITE1,1:C 
Y=196:MOVSPR1,CX,CY:GOT0130 EI 

490 X=INT(CX-24):Y=INT(CY-50) PK 

500 LOCATEX,Y:A=TNT(X/5):B=INT((Y-144)/4 
):IFRDOT(2)=lTlIENB0X0,A*5,B*4+144,A*5+4, 
B*4+3+144,,l:C=0 : ELSEBOXl,A*5,B*4+144,A* 
5+4,B*4+3+144,,l:C=l MJ 

•510 DRAWC,0X+A,0Y+B:G0T0150 LM 

•520 GOSUB990:GOSUB97O:SPRITE3,0:GOT0130 OK 
•530 COLOR 1,8: CHAR 1,0, 17, "PR EPA RE PRINTER 

AND PRESS SPACE BAR" MF 

•540 GETKEYA$:CHAR1,0,17,BL$:CHAR1,0,17," 
PRINTING[3", M ] SPACE-ABORTS F-FAST ON/0 
FF" KE 

•550 0PEN3.4 GB 

■560 FP$=CHR$(13):IFFPTHENFP$=CHR$(27)+CH 
R$(10)+CHR$(12) CO 



570 IFCT>0THENF0RI=1T0CT:PRINT#3,CHR$(CD 
(I));:NEXT LO 

580 IFGR=1THENPRINT#3,CHR$(8); FE 

590 FS=0:F0RI=40TO120STEP4O:Y=(I-4O)/4O* 
32 : IFL>=ITHENX=40:ELSEX=40-(I-L) DP 
600 IFI>LANDL>40THEN670 HH 

610 F0RC=1T0X*8: FOR J=1T0PW: F0RR=HT01 STEP 
-1 HJ 

620 GETA$:IFA$O ,m THEN690 GF 

630 L0CATEC-1,R+31+Y:A$=" ":IFGRTHENA$=G 
0$ DM 

640 IFRD0T(2)=0THENA$=CH$:IFGRTHENA$=G1$ KD 
650 F0RK=1T0PH:PRINT#3,A$; :NEXTK,R:IFGRT 
HENPRINTI3 : ELSEPRINT#3 , FP$ ; IH 

660 NEXTJ,C,I FI 

670 SL0W:IFGRTHENPRINT#3,CHR$(15); IK 
680 PRINT#3:CL0SE3;G0T0940 OC 

690 IFA$=" "THEN670:ELSBIFA$O"F"THEN630 BP 
700 IFFSTHENSL0W:FS=0:ELSEFAST:FS=1 DB 
710 GOT063O OP 

720 COLOR 1, 16 :CH A Rl, 0,17, "PRINT USING SO 
LID BLOCKS (Y/N):":N=0:MX=1:X=32:Y=17:G0 
SUB1000 KC 

730 CHAR1,0,17,BL$:GR=0:MW=80:IFZ$="Y"TH 
ENGR=1 :MW=70:GOT0760 OK 

740 CHAR1, 0,17, "ENTER CHARACTER TO DRAW 
TEXT:":MX=l:X=29:GOSUB 1000:CH$=Z$ NK 
750 CHAR1,0,17,BL$:CHAR 1,0, 17, "USE FINE 

LINE SPACING (Y/N):":N=0:MX=1:X=29:Y=17 
:GOSUB1000:FP=0: IFZ$="Y"THENFP=1 OL 
760 CHAR1,0,17,BL$:CHAR1,0,17,"EXPAND TO 

FIT FULL WIDTH OF PAGE(Y/N) :":N=0:MX=1: 
X=38:G0SUB1000 JK 

770 CHAR1,0,17,BL$:IFZ$="Y"THENPH-INT(MW 
/H):G0T0800 EE 

780 CHAR 1,0, 17, "PIXEL HEIGHT(l-"+STR$(IN 
T(MW/H))+"):":N=l:MX=2:X=21:GOSUB1000:IF 
Z<10RZ>INT(MW/H)THEN780 EP 

790 PH=Z : CHAR 1,0,1 7, BL$ MJ 

800 CHAR1,0,17,"PIXEL WIDTH (1-10) :";N»1 
: MX=2 : X=20 : GOSUB 1000 : IFZ< 10RZ>10THEN800 KL 
810 PW=Z:CHAR1,0,17,BL$ OE 

820 CT=1 KI 

830 CHAR1 ( 0,17,BL$:CHAR1,0,17,"SPECIAL P 
RINTER CODE (0=DONE) :":N=l:MX=3:X=31:GOS 
UB1000 EF 

840 IFZ=0THEN940: ELSECD(CT)=Z : CT=CT+1 : IF 
CT<2 1THEN830 : ELSE940 ED 

850 CHAR1, 0,17, "UPPER OR LOWER SET (U/L) 

:":MX=1:N=0:X=27;Y=17:G0SUB 1000:IFZ£=" 
U"THENP$=CHR$( 142) : ELSEIFZ$="L"THENP$=CH 
R$(14) CN 

860 G0TO940 IG 

870 CHAR 1,0, 17, "FILENAME TO L0AD:":MX=12 
:N=0:X=17:Y=17:GOSUB1000:IFZ$=""THEN940 EP 
880 BLOAD(Z$+".BNR") :L=PEEK(9463) :H=PEEK 
(9471):POKE9463,0:POKE9471,0:GOT0940 OF 
890 CHAR 1,0, 17, "FILENAME TO SAVE AS:":M 
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X-12 : N=0 : x=20 : Y-17 : G0SUB1000 : IFZ$=""THEN 
940 BO 

•900 F0KE9463,L:P0KE9471,H:SCRATCH(Z$+".B 
NR"):BSAVE(Z$+".BNR"),B0,P9463T0P12992:P 
OKE9463,0:POKE9471 , : GOSUB940 : GOT0940 ID 

•910 A$="EXIT TO BASIC: ":GOSUB920:IFR=OTH 
EN 130 : ELSEGRAPHICO , 1 : C0L0R0, CO : C0L0R4 , C4 

:COLOR5,C5:SPRITEl,0:SPRITE2 f O:SPRITE3,0 

I END EM 

■920 R=0:CHAR1,0,17,A$+" ARE YOU SURE? ( 

Y/N) :":MX-l:N»0:X-24+LEN(A$):Y«17:GOSUB 

10O0:CHARl,O,17,BL$:IFZ$="Y"THENR=l JB 
•930 RETURN DD 

•940 CHAR1,0,17,BL$:G0T0130 OK 

•950 C0L0R1,13:B0X1,X*8-1,Y*8-2,X*8+LEN(A 

$)*8+2,Y*8+8 EE 

•960 C0L0R1,C:CHAR1,X,Y,A$,1:C0L0R1,2:RET 

URN NJ 

•970 A$=" DRAW [BACKARROW]":X=X(0) :Y=Y(0) 

:C=C(0):G0SUB950:DR=1:A$=" TEXT ":X=X(1 

):Y=Y(1):C=C(1):G0SUB950:RETURN DE 
•980 A$-" TEXT [BACKARROW]":X=X(l) :Y=Y(1) 

:C=C(1):G0SUB950:DR=0:A$=" DRAW ":X=X(0 

):Y=Y(O):C=C(0):G0SUB950: RETURN BD 
■990 F0RI=1 7T024:CHAR1,0, I, BL$: NEXT: COLOR 

1, 13: B0X1, 1,144, 319, 198: FORI=0TOll: AS=B$ 

(I):X=X(I):Y=Y(I);C=C(I):G0SUB950:NEXT:R 

ETURN OH 

• 1000 Z$="" : NC=0 : CHAR1 , X , Y , LEFT$( BL$ , 40-X 

) FM 

• 1010 GETA$ : IFA$=""THENCHAR1 , X+NC , Y , " [ BAG 

KARROW]" PB 

-1020 IFA$=CHR$(13)THENCHAR1,X+NC,Y," ":Z 

=VAL(Z$): RETURN EL 

•1030 IFA$=CHR$(20)ANDNC>OTHENZ$=LEFT$(Z$ 

,LEN(Z$)-1 ) :CHAR1 , X+NC, Y , " " :NC=NC-1 :G0T 

01010 JI 

•1040 IF(A$<" "OR(NAND(A$<"0"ORA$>"9"))OR 

LEN(Z$)=MX)THEN 1010 AP 

•1050 Z$=Z$+A$:CHAR1,X+NC,Y,A$:NC=NC+1:G0 

T01010 EO 

•1060 COLOR1,2:FORI=4T017:CHAR1,0,I,BL$:N 

EXT HI 

■1070 IFL<41THENZ=L:ELSEZ=40 HA 

• 1080 F0RI=1T0H : DRAW1 , , I+31TOZ*8 , 1+31 : NE 

XT OA 

•1090 IFL<4 1THENR ETURN: ELS EI FL<81THENZ=L: 

ELSEZ=80 PB 

• 1 100 Z=L-40 : F0RI=1T0H : DRAW1 ,0, I+63TOZ*8 , 

1+63: NEXT OE 

•1110 IFL<81THENRETURN I J 

•1120 Z=L-80:F0RI=1T0H:DRAW1,0,I+95T0Z*8, 

I+95:NEXT:RETURN JH 

* 1 1 30 FAST : CO=RCLR (0) ; C4=RCLR ( 4 ) : C5=RCLR( 

5):TRAP20:DIM S$(23) ,B$(11) ,C(11) ,X(11) , 

Y(11),TX(11),TY(11),BX(11),BY(11),CD(20) PI 
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•1140 C0L0R4 , 1 :C0L0R0 , 1 :C0L0R1 , 13 : GRAPHIC 
l,l:FORI=3584T03775:READJ:POKEI,J:NEXT QC 

• 1 150 SPRITE1 , 1 , 16 :M0VSPR1 , 180, 200 : CX=180 
:CY=200:SPRITE2,0 AC 

•1160 F0RI=0T011:READB$(I),C(I),X(I),Y(I) 
:TX(I)=X(I)*8+20:TY(I)=Y(I)*S+47:BX(I)=T 
X(I)+LEN(B$(I))*8+9:BY(I)=TY(I)+14:NEXT HJ 

•1170 FORI=1T07:GO$=GO$+CHR$(128):G1$=G1$ 
+CHR$(255):READXX(I),YY(I):NEXT:READXX(I 
),YY(I) GM 

• 1 180 MW=80 : PW= 1 : PH- 1 : FP=0 : EX=1 : GR=0 : CH$= 
"0":CT=0:L=40:H=8 10 
1190 BL$="[40" "]":Q$=CHR$(34) KN 
1200 F0RI=0T02;CHAR1,0,I,BL$,1:NEXT:B0X0 

, 5, 2,314,2 1:CHAR1 ( 14,1, "BANNER PRINT", 1 GM 
1210 G0SUB990 : G0SUB970 : G0SUB1060 : P$=CHR$ 



(142):SL0W:G0T0130 

1220 DATA 255,0,0,254,0,0,252,0 



1230 DATA 0,254,0 
1240 DATA 128,0,3 
1250 DATA 0,192,0 
1260 DATA 0,0,0,0 
1270 DATA 0,0,0,0 
1280 DATA 0,0,0,0 
1290 DATA 0,0,0,0 
1300 DATA 255,0,0 
1310 DATA 0,129,0 
1320 DATA 0,0,129 
1330 DATA 0,0,0,0 
1340 DATA 0,0,0,0 
1350 DATA 0,0,0,0 
1360 DATA 0,0,0,0 
1370 DATA 0,0,0,0 
1380 DATA 255,255 
1390 DATA 1,128,0 
1400 DATA 0,1,128 
1410 DATA 128,0,1 
1420 DATA 1,128,0 
1430 DATA 255,255 
1440 DATA 0,0,0,0 
1450 DATA 0,0,0,0 
1460 DATA " DRAW 



0,223,0,0,135 

192,0,1,224,0 

0,0,0,0,0 

0,0,0,0 

0,0,0,0 

0,0,0,0 

0,0,0,0 

129,0,0,129,0 

0,129,0,0,129 

0,0,255,0,0 

0,0,0,0 

0,0,0,0 

0,0,0,0 

0,0,0,0 

0,0,0,0 

255,128,0,1,128,0 

1,128,0,1,128 

0,1,128,0,1 

128,0,1,128,0 

1,128,0,1,255 

0,0,0,0,0,0 

0,0,0,0 

0,0,0,0 



JO 
NN 
00 
JI 
FF 
BK 
EA 
EJ 
DH 
EK 
JO 
ID 
FP 
IF 
HD 
HJ 
KH 
JN 
HO 
MA 
CB 
NB 
JP 
OJ 
"NH 



"31 



EC 



",3,1,19," TEXT 
,21, " ERASE ",3,1,23 
1470 DATA " LENGTH ",6,10,19," HEIGHT 
",6,10,21," MAGNIFY ",6,10,23 NO 

1480 DATA " PRINT [3" "] ",7,21, 19," OPTIO 
NS ",7,21,21," CHR SET ",7,21,23 JJ 
1490 DATA " LOAD ",8,33, 19," SAVE ",8,33 
,21," QUIT ",8,33,23 FD 

1500 DATA 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1, 
0,-1,-1 EG 

STOP TYPING! 

All the programs in this issue are available 
on disk! See page 30. 



ROUTE 64 

FROM PAGE 13 



•10 REM *** ROUTE 64 *** BUCK CHILDRESS * 
** JG 

•20 REM *** P.O. BOX 13575 SALEM, OR 9730 
9 *** OA 

•30 PRINTCHR$ (147) "LOADING" ;:J=52000 AP 
•40 PRINT"."; : FORB=OT01 1 : READA EA 

•50 IFA<00RA>255THEN70 EP 

• 60 POKEJ+B , A : X=X+A : D=D+1 : NEXTB : READA ; IFA 
=XTHEN80 GO 

•70 PRINT : PRINT :PRINT"ERROR IN DATA LINE: 

"PEEK(64)*256+PEEK(63):END HB 

•80 X=0:J=J+12:IFD<840THEN40 GL 

•90 PRINT:PRINT:PRINT"THE DATA IS 0K[3"." 

]": PRINT LH 

•100 PRINT"SYS 52[3"0"] TO ACTIVATE [3"."] 

":END NN 

•110 DATA169, 0,141, 102, 206, 165,43, 166,44, 

133,251,133,1553 GI 

•120 DATA253, 134, 252, 134, 254, 32, 225, 255, 2 

40,71,32,208,2090 ID 

• 130 DATA205 , 140 , 103 , 206 , 140 , 104 , 206, 140 , 
105,206,140,106,1801 GO 

•140 DATA206, 140, 108,206,32,163,205,208,4 
9,173,102,206,1798 FA 

•150 DATA208,43,238, 102,206, 169,38,160,20 
6,32,30,171,1603 CP 

•160 DATA169, 0,133, 198, 133, 204, 165, 203, 20 
1,63,240,11,1720 KM 

•170 DATA201,25,240,4,201,39,208,242,32,2 
10,255,133,1790 JD 

•180 DATA204, 162, 0,134, 207, 201, 25 ,240, 168 

,96,32,171,1640 DJ 

•190 DATA205, 177, 251, 170, 32, 171, 205, 177, 2 

51,32,205,189,2065 OP 

•200 DATA169, 32, 32, 210, 255, 173,102,206,24 

0,10,32,163,1624 NP 

•210 DATA205,201,39,240,50,76,5,204,32,16 

3,205,240,1660 GC 

•220 DATA91, 142, 109,206,72,32,77,205,104, 

166,212,208,1624 EH 

•230 DATA239,201,39,240,18,201,137,240,8, 

201,141,240,1905 CJ 

• 240 DATA4 , 201 , 167 , 208 , 223 , 141 , 108 , 206 , 76 
,160,203,174,1871 FC 

• 250 DATA 108, 206, 240, 212, 141 , 104, 206, 141 , 
109,206,141,112,1926 MO 

•260 DATA206, 169, 0,141, 99, 206, 32, 163, 205, 
208,3,76,1508 CK 

• 270 DATA104 , 204 , 201 , 34 , 240 , 249 , 32 , 77 , 205 
,174,105,206,1831 AH 

•280 DATA208, 241, 201, 39, 208, 232 ,142, 104,2 
06,173,102,206,2062 LG 

•290 DATA208, 58, 141, 107, 206, 76, 136, 204, 17 
3,106,206,208,1829 DN 



•300 DATA23, 173, 103, 206, 240,7, 165, 253, 166 

,254,76,41,1707 LJ 

•310 DATA203 , 160, 1 , 177, 253, 170, 136, 177, 25 

3,76,41,203,1850 I A 

•320 DATA165,214,201,2,144,35,201,3,176,4 

,165,211,1521 HI 

•330 DATA240, 27, 169, 2 1,160, 206, 32, 30, 171, 

76,128,204,1464 LA 

•340 DATA32, 178,205,32, 163, 205, 240,6,32,7 

1,205,76,1445 BN 

•350 DATA69, 204, 238, 103, 206, 169,222,160,2 

05,32,30,171,1809 EH 

•360 DATA 169, 204, 162, 5, 32, 205, 189, 169, 19, 

162,13,160,1489 BL 

•370 DATA4, 141, 119, 2, 142, 120, 2, 142, 121, 2, 

142,122,1059 PP 

•380 DATA2, 132, 198, 96 ,32, 49, 205, 169,227,1 

60,205,32,1507 FC 

•390 DATA30, 171, 169, 10, 160, 206, 32, 30, 171, 

169,112,160,1420 FD 

•400 DATA206, 32, 30, 17 1,169,13,32,210,255, 

76,210,255,1659 CP 

•410 DATA165,43, 166,44, 133,63, 134,64, 160, 

0,177,63,1212 AD 

•420 DATA133, 65, 200, 177,63,133,66,162,255 

,160,3,142,1559 GI 

•430 DATA100, 206, 140,101 , 206,238, 100, 206, 

238,101,206,172,2014 PG 

•440 DATA 101, 206, 177, 63, 201, 128, 144, 40, 56 

,233,127,170,1646 NB 

•450 DATA 160, 255, 202, 240, 8, 200, 185, 158, 16 
0,16,250,48,1882 HD 

•460 DATA245,200,185, 158, 160,48, 14,174,10 
0,206,221,112,1823 EE 

• 470 DATA206 , 208 , 17 , 238 , 100 , 206 , 76 , 197 , 20 
4,56,233,128,1869 DO 

•480 DATA1 74, 100,206,221,112,206,240,21,1 
65,65,166,66,1742 " DJ 

•490 DATA208, 162, 173, 107, 206, 208, 51, 32, 49 
,205,169,253,1823 HH 

• 500 DATA160 , 205 ,76,111, 204 , 236 , 99, 206 , 14 
4,167,238,107,1953 NE 

•510 DATA206, 173, 107, 206, 201 , 2, 176, 16, 160 

,2,177,63,1489 EB 

■520 DATA141, 110, 206, 200, 177, 63, 141, 11 1,2 

06,76,228,204,1863 FE 

•530 DATA32,49, 205, 169, 239, 160, 205,76, 111 

,204,32,178,1660 GK 

•540 DATA205, 173, 11 1,206, 174, 110, 206, 32, 2 

05,189,76,160,1847 ID 

•550 DATA203, 169, 0,1 74, 99 ,206, 141, 109, 206 
,232,157,112,1808 CF 

•560 DAT A 206, 32, 166, 205, 240,96,32, 163, 205 
,240,91,32,1708 MD 

•570 DATA77, 205, 76, 66, 205, 166, 21 2, 208, 36, 
201,128,144,1724 IM 

•580 DATA32, 56, 233, 127, 170 ,160, 255, 202, 24 
0,8,200,185,1868 FB 
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•590 DATA158, 160, 16, 250,48, 245, 200, 185, 15 

8,160,48,6,1634 JL 

•600 DATA32, 11 7, 205, 76, 102, 205, 56, 233 ,128 

,174,109,206,1643 DN 

■610 DATA240,9,238,99,206,174,99,206,157, 

112,206,32,1778 JN 

•620 DATA210, 255, 174, 104, 206, 240, 23, 201, 3 

9,240,19,201,1912 CD 

•630 DATA48, 144, 12,201,58,144,11,201,65,1 

44,4,201,1233 GJ 

•640 DATA91, 144, 3, 141, 105, 206, 96, 32, 171, 2 

05,162,0,1356 KJ 

■650 DATA 161, 251, 96, 230, 251, 208, 2, 230, 252 

,96,169,20,1966 ED 

•660 DATA141, 106, 206, 174,99,206,32,210,25 

5,202,16,250,1897 IF 

•670 DATA 173, 102, 206, 240, 236, 160, 1,1 77, 25 

1,208,230,169,2153 CA 

•680 DATA58, 76, 210, 255, 32, 68, 229, 160, 0,13 

2,198,132,1550 AD 

•690 DATA199, 132, 212, 132,216,96, 13,83,89, 

83,0,13,1268 BJ 

•700 DATA13, 18, 69, 82, 82, 79, 82, 32, 73, 78,0, 

13,621 HB 

•710 DATA13, 18, 68, 85, 80, 76, 73, 67, 65, 84, 69 

,68,766 KP 

■720 DATAO, 13, 13, 18, 85, 78, 68, 69, 70, 73, 78, 

69,634 CI 

•730 DATA68, 0,32 ,76, 65, 66, 69, 76, 32, 42, 42, 

32,600 EP 

■740 DATAO, 13, 13, 18, 76, 73, 78, 69, 32, 84, 79, 

79,614 MK 

■750 DATA32, 76, 79, 78, 71, 0,17, 76, 73, 78, 69, 

32,681 HG 

■760 DATA82, 69, 70, 69, 82, 69, 78, 67, 69, 83, 32 

,67,837 CA 

■770 DATA79, 77, 80, 76, 69, 84, 69, 46, 46, 46, 13 

,13,698 HN 

•780 DATA82, 69, 77, 79, 86, 69, 32, 69, 88, 73, 83 

,84,891 GE 

•790 DATA73, 78, 71, 32, 76, 65, 66, 69, 76, 83, 63 

,32,784 GF 

•800 DATA40, 89, 47, 78, 41, 32, 0,0, 0,0, 0,0, 32 

7 PJ 

STEEPLECHASE 

FROM PACE 15 

Starting address in hex: COOO 
Ending address in hex: CABO 
SYS to start: 49152 

Flanhpeed required for entry! See page 79. 

COOO: A9 8E 20 D2 FF A9 08 20 FC 
C008: D2 FF A9 7E 85 39 A9 C7 33 
C010: 85 3A A9 00 85 3B A9 3C 20 



C018: 
CO 20: 
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85 3C A2 OC AO 00 Bl 39 14 
91 3B C8 CO 40 90 F7 18 5 7 



C028: 


98 


65 


39 


85 


39 


A5 


3A 


69 


67 


C030: 


00 


85 


3A 


18 


98 


65 


3B 


85 


C6 


C038: 


3B 


A5 


3C 


69 


00 


85 


3C 


CA 


4B 


C040: 


DO 


DA 


AO 


18 


B9 


A9 


C5 


99 


67 


C048- 


00 


D4 


88 


10 


F7 


20 


C9 


C4 


5C 


CO 50: 


AO 


2C 


A9 


00 


99 


19 


C5 


88 


C7 


C058- 


10 


FA 


8D 


20 


DO 


8D 


15 


DO 


55 


C060: 


8D 


17 


DO 


8D 


IB 


DO 


8D 


ID 


F9 


C068 


DO 


A9 


FF 


8D 


1C 


DO 


A9 


09 


10 


C070: 


8D 


25 


DO 


A9 


OF 


8D 


26 


DO 


31 


C078 


A9 


07 


8D 


27 


DO 


A9 


01 


8D 


E6 


C080- 


28 


DO 


20 


25 


C4 


A9 


92 


AO 


60 


C088 


C6 


20 


IE 


AB 


A2 


06 


AO 


00 


82 


C090- 


18 


20 


FO 


FF 


A9 


C2 


AO 


C5 


8C 


C098 


20 


IE 


AB 


A2 


12 


AO 


00 


18 


EF 


COAO- 


20 


FO 


FF 


A9 


C2 


AO 


C5 


20 


A4 


C0A8 


IE 


AB 


AO 


27 


A9 


AO 


99 


AO 


BE 


CO BO' 


04 


99 


EO 


05 


99 


80 


06 


99 


ED 


C0B8 


CO 


07 


A9 


00 


99 


AO 


D8 


99 


D6 


COCO 


80 


DA 


A9 


05 


99 


EO 


D9 


99 


B8 


C0C8 


CO 


DB 


88 


10 


DF 


A2 


02 


AO 


23 


CODO 


03 


18 


20 


FO 


FF 


A9 


6B 


AO 


B2 


C0D8 


C6 


20 


IE 


AB 


A2 


OE 


AO 


03 


DD 


COEO 


18 


20 


FO 


FF 


A9 


6B 


AO 


C6 


86 


C0E8 


20 


IE 


AB 


18 


AD 


19 


C5 


AA 


22 


COFO 


69 


31 


8D 


17 


04 


8A 


OA 


OA 


D2 


C0F8 


OA 


AA 


AO 


00 


BD 


46 


C5 


99 


Bl 


C100 


20 


04 


E8 


C8 


CO 


07 


90 


F4 


23 


CI 08 


AO 


7F 


AD 


IB 


D4 


99 


00 


3F 


9E 


C110 


88 


10 


F7 


A9 


7D 


8D 


2E 


C5 


49 


C118 


' A9 


DD 


8D 


2F 


C5 


A2 


02 


BD 


84 


CI 20 


86 


C5 


9D 


38 


C5 


9D 


3B 


C5 


A6 


C128 


AD 


IB 


D4 


29 


FE 


9D 


40 


C5 


91 


CI 30 


9D 


43 


C5 


CA 


10 


E9 


20 


DE 


9A 


C138 


C2 


A9 


FF 


8D 


24 


C5 


8D 


25 


CE 


CI 40 


C5 


8D 


15 


DO 


A2 


00 


8E 


36 


EO 


C148 


C5 


8E 


37 


C5 


8A 


29 


OF 


4A 


A6 


CI 50 


4 A 


A8 


09 


FO 


8D 


F8 


7 


8D 


58 


C158 


. F9 


07 


A9 


10 


8D 


04 


D4 


B9 


33 


CI 60 


A5 


C5 


FO 


08 


8D 


01 


D4 


A9 


Dl 


C168 


11 


8D 


04 


D4 


A9 


02 


20 


CI 


6D 


CI 70 


C4 


8A 


48 


20 


DE 


C2 


68 


AA 


DC 


C178 


: E8 


EO 


64 


90 


C9 


A9 


20 


8D 


58 


CI 80 


08 


D4 


A2 


80 


8E 


OB 


D4 


E8 


D7 


C188 


: 8E 


OB 


D4 


20 


9A 


C2 


A9 


01 


IF 


CI 90 


85 


04 


A6 


04 


BD 


24 


C5 


C9 


36 


C198 


: 08 


90 


OD 


BD 


00 


DC 


29 


10 


12 


C1A0 


: DO 


OC 


9D 


22 


C5 


9D 


24 


C5 


8A 


C1A8 


: 20 


09 


C3 


4C 


Dl 


CI 


BD 


00 


33 


CI BO 


: DC 


29 


OC 


4A 


4A 


A8 


18 


BD 


D5 


C1B8 


: U 


C5 


79 


66 


C5 


85 


02 


BD 


83 


CI CO 


: 1C 


C5 


79 


6A 


C5 


C9 


2F 


BO 


F5 


C1C8 


: 08 


9D 


1C 


C5 


A5 


02 


9D 


1A 


AF 


CI DO 


C5 


BD 


20 


C5 


FO 


06 


DE 


20 


30 


C1D8 


, C5 


4C 


42 


C2 


38 


A9 


32 


FD 


02 


C1E0 


1C 


C5 


9D 


20 


C5 
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IMPORTANT I Lellers on wflile background are Bug Repellent line codes. Do not enter them! Pages 77 and 78 explain Ihese codes 
1 1 VI lUn I Mil I ! and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 



FROM PAGE 60 



• 10 SCNCLR : TRAP990; COLOR. , 1 1 C0L0R4 , 1 : GRAP 
HIC1.1: GRAPHIC: CHAR., 12, 10, "[BLUE] PLEAS 
E STAND BY!" CM 

•20 RESTORE1040:G0SUB1020:CHAR. ,10, 12, "PA 
TIENCE IS A VIRTUE." GJ 

•30 REST0RE1 250 :A=1 2288 :B=1 2288+22*64-1 :F 
0RC=ATOB:READD:P0KEC,D:NEXT:CHAR.,3,14," 
'GOOD THINGS COME TO HE WHO WAITS [ 3". "j 1 

GJ 

•40 REST0RE3020 : A=3072 : B=3775 : F0RC=AT0B: R 
EADD : POKEC , D : NEXT : P0KE4590 , 35 : P0KE4591 , 5 
0:POKE4592,63:POKE4593,210:POKE4594,l:PO 
KE4599 , . : POKE4600 , 5 : POKE4601 , 4 : SYS3072 EO 

•50 A=(214*64)+3*6:B=214*64+3*6+23:F0RC=A 
TOB: POKEC, 255 :P0KEC+64, 255 :NEXT: A=216*64 
+1:B=21 7*64-1 :F0RC=AT0BSTEP3: POKEC, 255 :P 
OKEC+64,255:NEXT GA 

•60 POKE53265,ll:PRINTCHR$(27)"M"CHR$(ll) 
CHR$(142)CHR$(147);:F0RX=.T039:A$=A$+CHR 
$(160): NEXT HK 

•70 COLORS, 7 :F0RX=.T024:PRINTA$: NEXT: POKE 
4599,.:F0KE54290,17:X=FRE(1) PI 

•80 PRINT"[H0ME][4"[D0WN]"]"TAB(9)"[YELL0 
W]AH0Y! MAGAZINE PRESENTS" CF 

•90 PRINT"[HOME][8"[DOWN3"]"TAB(8)"[c 6][ 
s N][s M]'[3" "][s 0][c Y][c Y][s P] [s 
][c Y][c Y] [c H] [c N] [s 0][c Y][c Y] 
[s 0][c Y][c Y][s P]" GD 

•100 PRINTTAB(7)"[s N] [s M] [s L][c P] 
[c P][s @] [c H][3" "][s L][c P][s @] [s 
L][c P][c P] [s L][c P][c P][s @]» CC 

•110 PRINTTAB(6)"[s N][4"[c Y]"][s M] [c 
H] [s M] [s L][c P][c P] [c H] [c N] [s 
L][c P][c P] [c HI [s M][DOWN]" OE 

•120 PRINTTAB(5)"[3"[s M]"]"SPC(6)"[c 4]F 
OR THE C128 ,, SPC(8)"[c 6][RVSON][c *]" CD 

•130 PRINTTAB(6)"[RVS0N][3"[c *]"][RVS0FF 
][25"[c @]"][RVSON] [c *]" IC 

•140 PRINTTAB(6)"[3"[sEP]"][25"[c Y]"][RV 
SON] [RVSOFF][sEP]" PM 

•150 PRINTrAB(5)"[3"[s N]"]"SPC(3)"[c 4]B 
Y CLEVE BLAKEM0RE"SPC(5)"[c 6][sEP][DOWN 
][DOWN]":PRINTTAB(7)"[3"[DOWN]"]PRESS FI 
RE BUTTON TO BEGIN": P0KE53265, 27 MF 

•160 X=l:J=.:DO:P0KE8192+8*96+X,96:POKE81 
92+8*96+J, . :X=X+1+(X=7)*8: J=J+1+(J=7)*8: 
LOOPUNTILJOY(2)>127:SCNCLR KK 

•170 REM INITIALIZE VARIABLES LB 

•180 CLR:DIM J,A,B,R,P,S,E,U,W,Z,G,I,V,T, 
H,X,P(8),B(7),N,L,K,SC,X(2),Y(2),OX,OY,A 
X,AY t DX(8),DY(8),JD,SP,SF,SM,UR,C$(10),B 



MC9),RD(9),IXC6),IY(6) AH 

•190 L=.:SC=.:P=2040:K=3:V=1:T=2:H=3;X=8: 
N=53269:B=191:JD=127:SP=32:SM=1024:UR=40 
: SF=35 MP 

•200 REST0RE800:F0RJ=.T07:B(J)=2[UPARR0W] 
J : N EXT : FOR J= 1T08 : RE ADP ( J ) : NEXT : FOR J- 1T01 
0:READC$(J):NEXT:F0RJ=1T08:READDX(J),DY( 
J):NEXT:F0RJ=3T06:READIX(J),IY(J):NEXT BP 

•210 B$="[D0WN][9"[LEFT]"]":F$="[6"jP]":P 
UDEF"0" LK 

•220 T$="[RVS0N][BLACK][7" "][RVS0FF]":S$ 
="[c +][s C][s C][c +][DOWN][4"[LEFX]"][ 
c +][RVS0N][][RVS0FF][c +] [DOWN] [4" [LEFT 
]"][c +][RVS0N]()[RVS0FF][c +][D0WN][4"[ 
LEFT]"][4"[c +]"]":TR$="364436[3"4"]9" MM 

•230 DEFFNA(X)=JAND15:DEFFNS(J)=B+A:DEFFN 
D(J)=(A-V)*45:DEFFNW(J)=(RND(V)*E)+G FJ 

•240 DEFFNM(J)=INT(RND(V)*U)*W+Z:DEFFNC(J 
)=(JANDH):DEFFNX(J)=RSPPOS(V,.):DEFFNY(J 
)=RSPPOS(V,V):DEFFNB(J)=(B(A-V)ANDJ):DEF 
FNP(J)=PEEK(SM+X(J)+Y(J)*UR) KG 

•250 DEFFNPD(J)=PEEK(SM+X( . )+DX(A)+(DY(A) 
+Y( . ) )*UR) : DEFFNK( J)=(FNP( J)OSPANDFNP( J 
)<>SF):DEFFNCP(JMX(.)=X(R)ANDY(.)=Y(R) 
):DEFFNSC(J)=36+(PEEK(2047)-210) OE 

•260 REM ENTRY POINT FOR NEW DUNGEON DG 

• 270 L=L+V : IFL=11THENGOSUB900:RUN60 : ELSEF 
0RA=VT09:BM(A)=253:NEXT:SC$="":IFL S =5THEN 
K=K+V:CHAR,,.,24,C$(L):G0SUB840:S0UNDV,3 
0000 , UR , . , 5000 , 5000 , T : SLEEP3 PD 

•280 GOSUB750:FORJ=.TOX:DO:X(.)=INT(RND(V 
)*30)+X:Y(.)=INT(RND(V)*21)+T:LOOPWHILEF 
NP(.)OSP:CHAR.,X(,),Y(.), "[YELLOW] [RVSO 
N ]'": NEXT :PRINTCHR$( 146) FH 

•290 F0RJ=VT0T:D0:X(J)=INT(RND(V)*30)+X:Y 
(J)=INT(RND(V)*21)+T:L00PWHILEFNP(J)OSP 
:CHAR,,X(J),Y(J),"[BLACK]*":NEXT:X(.)=T: 
Y(.)=T LK 

•300 CHAR.,X(.),Y(.),"[GREEN]#":CHAR.,X(V 
),Y(V),"[RED]*":CHAR.,X(T),Y(T),"[RED]*" 
:P0KE4599,V:P0KE54290,65 IC 

•310 REM DUNGEON OVERVIEW LOOP GI 

•320 R=V:DO:OX=X(.):OY=Y(.):J=JOY(T):A=FN 
A( . ) :IFATHENX( . )=X( . )+DX(A) : Y( . )=Y( . )+DY 
(A):EFFNP(.)«SPTHENCHAR.,X(.),Y(.),"[GRE 
EN]#":CHAR.,0X,0Y," ":ELSEX( .)=OX:Y( . )=0 
Y LH 

•330 AX=X(R):X(R)=X(R)+(X(R)<X(.))*-V+(X( 
R)>XC))*V:IFFNK(R)THENX(R)=AX LH 

•340 AY=Y(R):Y(R)=Y(R)+(Y(R)<Y(.))*-V+(Y( 
R)>Y(.))*V:IFFNK(R)THENY(R)=AY PJ 

•350 CHAR., X(R),Y(R), "[RED]*" :IFAXOX(R)0 
RAYOY(R)THENCHAR.,AX,AY," " AF 

•360 IFFNCP(.)THENEXIT:ELSER=H-R HO 

•370 LOOPUNTILFNPD(.)>JD EN 
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• 380 IFFNCPC . )THENF0RA= .TOX : FORJ=VTOX : SOU 
NDT,P*X,V:C0L0R5,J:CHAR.,X(.),Y(,),"*":N 
EXTJ , A : K=K-V : CHAR . , 32+K*T , 24 , " " : IFKTHEN 
GOSUB730:GOTO290:ELSEIFK=.THENRUN60 MH 

•390 IFFNPDC . )=167THENP0KESM+X( . )+DX(A)+( 
DY ( A )+Y ( . ) ) *UR , SP : SC=SC+L*50 : SOUNDV , P*X* 
T,H, . ,B,P*X, . :CHAR. ,6,24, "[c 8]":PRINTUS 
INGF$;SC:GOT0320 II 

•400 IFFNPDC • )=1550RFNPD( . )=157THEN270 PK 

•410 RN=FNPD(.)-176:A$="[s +]":P0KE53265, 
11:FAST:G0SUB830 JH 

•420 0NRD(RN)G0SUB430,440,450,460:GOT0470 AN 

•430 POKE2046,214:MOVSPR7,160,38:J=170:A= 
73:RETURN IB 

•440 F0KE2046,216:M0VSPR7,8,124:J=45:A=13 
2: RETURN LC 

•450 P0KE2046,216:M0VSPR7,312,124:J=295:A 
=132:RETURN DD 

•460 POKE2046,214:MOVSPR7,160,214:J=170;A 
=200:RETURN GI 

•470 SPRITE7, , ,V, . ,V, V, . :SPRITEV, . ,6, . , . , 
. , ,:MOVSPRV, .#. :M0VSPRV,J,A:P0KE2040,192 
:R=V : SPRITET, . ,8 : POKE2041 , 206 : SPRITEX , . , 
V,.,.,.:MOVSPRX,173,140 HB 

•480 F0RJ=HT06:M0VSPRJ t .#.: SPRITE J, . ,RN+V 
,.,.,.,. :MOVSPRJ,IX(J) ,IY(J) :NEXT HK 

•490 IFRN>6THEN0NRN-6G0T0520,530,550 JF 

•500 IF(RNANDH)<HTHENA=((RNANDH)*T)+200:E 
LSEA=200 GO 

• 51 POKE4600 , 4 : P0KE4601 , 4 : U=X : W=45 : Z= . : E 
=4:G=H:I=.005:S=(L<=H)*-T+(L>HANDL<=5)*- 
H+(L>5)*-4:FORJ=.TO4:P0KE2041+J,A:NEXT:P 
0KE4595,A:GOT0560 PG 

• 520 POKE4601 , T : E=T : G=H : 1= . : S= . : F0RJ=HT04 
: SPRITEJ,,! 2,, V,.:P0KE2039+ J, 215: NEXT: FO 
RJ=5T06:SPRITEJ f ,12, , . ,V:P0KE2039+J,216: 
NEXT : P0KE4595 , 215 : P0KE4600 , 80 ; G0T0560 HA 

•530 POKE4601,T:E=T:G=H:U=T:W=180:Z=90:I= 
. : S=5 : F0RJ=HT04 : SPRITEJ , , 10 , V , V , . : P0KE20 
39+J, 214: NEXT :FORJ=5T06: SPRITEJ,, 10, V,., 
V: POKE2039+J , 216 : NEXT : POKE4595 , 214 CJ 
•540 G0T0560 EF 

•550 POKE4601,T:E=T:G=5:U=T:W=180:Z=.:I=. 
: S=5 : F0RJ«HT04 : SPRITEJ , , 1 3 , V , V , . : P0KE203 
9+J, 214: NEXT :FORJ=5T06: SPRITEJ,, 13, V,.,V 
:POKE2039+J,216:NEXT:POKE4595,214 AF 
•560 F0RA=.T010: J=BUMP(V) : NEXT: P0KE53 248+ 
21,BM(RN):R=V:P0KE4594,,:P0KE4599,T GE 
•570 IF(RNANDH)<HTHENPOKE2047,21O+(RNANDH 
):ELSEPOKE2047,210 KG 

•580 SLOW:POKE53265,27 AA 

•590 REM MAIN LOOP DG 

•600 DO:J=JOY(T) :A=FNA( .) :IFATHENR=A:POKE 
P,FNS(.) OK 

•610 IF A ANDAOJTHEN SPRITET, . : MOVSPRT, .#. 
MOVSPRT , FNX ( . ) , FNY ( , ) : MOVSPRT , 20 ; FND( . ) 
MOVSPRT,FND(.)#X:POKEP+V,P(R): SPRITET, V 
SOUNDV, P*X,SP,V,P*H,B*H,H LN 
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•620 MOVSPRFNW( . ) ,FNM( . )#S :S=S+I : J=BUMP(V 
) : LOOPUNTILFNCC J ) : ONFNC( J ) GOT0660 , 630 , 60 
LH 

• 630 IFRN>H+HTHEN600: ELSEFORA=HTOX-T: IFFN 
B(J)THENSPRITET,.:S0UNDT,P*X,75,.,P*T,P, 
T:GOSUB70O KB 

•640 NEXT AE 

•650 J=BUMP(V):J=BUMP(V):GOTO600 LC 

• 660 IFJ=B ( 7 )+VTHENGOSUB7 10 1 GOTO650 : ELSEI 
FJANDB(7)THEN650 NL 

•670 IFJ=B(6)+VTHENBM(RN>PEEK(N) :SCNCLR: 
POKEN , . : A$=" [ c + ] " ; GOSUB750: GOTO300 : ELSE 
IFJANDB(6)THEN650 DB 

•680 POKE4594,V:MOVSPRV,.#.:K=K-V:CHAR.,3 
2+K*T , 24 , " " : SOUNDT , 5000 , 150 ,T , , 100 , V : PO 
KEP , 213 : FORD=1T03 : F0RJ=1T016 : SPRITEV , V , J 
:F0RA=.T020:NEXTA,J,D:BM(RN)=PEEK<N) HK 

•690 POKEN,. :IFKTHEN420:ELSERUN 60 BK 

•700 SC= s SC+L*100:CHAR.,6,24,"[c 8]": PRINT 
US INGF$ ; SC : FORH=VT05 : FORT=VT01 6 : SPRITEA , 
V, T: NEXT: NEXT :T=2:H=3:SPRITEA, . : RETURN EA 

•710 SC=SC+L*1000:CHAR.,6,24,"[c 8] n :PRIN 
TUSINGF$ ;SC: SOUNDT, P*T, 50, V,B,B,T: POKEN, 
PEEK(N)ANDJD:SC$=SC$+CHR$CFNSC(.)):CHAR. 
, 1 6, 24," [ YELLOW j"+SC$: RETURN LA 

•720 REM ERASE OLD CHARACTER POSITIONS PA 

•730 FORJ=.TOT:CHAR.,X(J),Y(J)," ":NEXT:R 
ETURN BP 

•740 REM DUNGEON CREATOR KC 

•750 P0KE53265,ll:FAST:A$="[c +]":G0SUB83 
: ONLGOSUB770 , 780 , 790 , 800 , 770 , 780 , 790 , 80 
0,790, 810: CHAR,, T, 5, S$:IFVAL(MID$(TR$,L, 
V) )=LEN( SC$)THENCHAR . , H , 5 , " " LG 

•760 POKE53265, 27: SLOW: RETURN GJ 

• 770 D=H : RN=4 : FORJ=VTOH : D=D+V+( D=4)*4 :RN= 
RN+V : CHAR . , J* 10 , J*4+T : GOSUB870 : NEXTJ:RET 
URN HE 

• 780 D= . : RN= . : FOR J=VTOH : FORA=VTOT : D=D+V+( 
D=4)*4:RN=RN+V:CHAR.,J*10-T,A*6+T:GOSUB8 
70:NEXTA,J:RETURN BM 

• 790 D=T : RN=7 : FOR J=VTOT : FORA=VTOT : D=D+V+( 
D=4)*4:RN=RN+V+(RN=9)*9:CHAR.,J*12,A*6+T 

: G0SUB870 : NEXTA , J: RETURN CN 

• 800 D=V : RN=4 : FOR J=VT04 : D=D+V+( D=4 )*4 : RN= 
RN+V:CHAR.,40-J*10,J*4+T:GOSUB870:NEXTJ: 
RETURN NM 

•810 D=.:RN=.:F0RJ=.T02:F0RA=.T02:D=D+V+C 
D=4)*4:RN=RN+V:CHAR.,J*10+7,A*7+4:G0SUB8 
70: NEXTA, J: RETURN NJ 

•820 REM PRINT BORDER WITH A$ HG 

•830 PRINTCHR$(147);C$(L);:FORJ=.T079:PRI 
NTA$ ; : N EXT : FOR J= . T01 9 : PR INTA $ A $TAB ( 38 ) A $ 
A$ ;: NEXT: FOR J=.T079:PRINTA$; : NEXT JM 
•840 PRINT n SC0RE:[6"0"][3" "][[9" "]] [c 
8]MEN [GREEN]"; :F0RJ=VT0K:PRINT"# ";:NE 
XT:CHAR.,12,24,"[WHITE]":PRINTL:CHAR.,16 
,24,"[YELLOW]"+SC$:CHAR.,6,24,"[c 8]": PR 
INTUSINGF$;SC: RETURN HH 



•850 REM PRINT ROOM W/DOOR AT CURRENT LOG -1220 

ATIGN DJ ,255 

•860 REM D=D0OR#,RN=R00M#,C$(L)=C0L0R CF -1230 

•870 F0RT=VT04:A$(T)= n [c +]":NEXT:T=2:A$( -1240 

D)==CHR$(18)+CHR$(144)+CHR$(48+RN)+CHR$(1 -1250 

46) BD -1260 

•880 PRINTC$(L);"[4"[c +]"] ,, A$(1) ;C$(L) ;" -1270 

[4"[c +]"]";B$;"[c +]"T$;C$(L);"[c + ]";B -1280 

$;A$(2);T$;C$(L);A$(3);C$(L);B$;"[c +]"T -1290 

$;C$(L);"[c +]";B$;"[4 ,, [c +]"]"A$(4) ;C$( -1300 

L);"[4"[c +]"]":RD(RN)=D: RETURN MK -1310 

•890 REM VICTORY DL -1320 

• 900 S0UND1 , 2 5000 , 300 , 1 , 300 , 3000 , 2 : PRINT" -1330 
[HOME] [HOME ][CLEAR] ,, TAB(4)"[8"[DOWN]"][Y -1340 
ELLOWJYOU HAVE CONQUERED THE DUNGE0N[3"! -1350 
"]":SLEEP6: RETURN EB -1360 

•910 REM ARROW POINTERS BD -1370 

• 920 DATA 206 , 207 , 208 , 209 , 206 , 207 , 208 , 209 JH • 1380 
•930 REM LEVEL COLORS ID '1390 
•940 DATA "[BLUE]\"[c 2]","[c 4]","[c 5] -1400 

VUCYANJV'tc 2]\"[c l]" ) ' , [RED]",' , [c 7 -1410 

]","[ PURPLE]" HN -1420 

•950 REM JOYSTICK X&Y ADJUSTMENT DELTAS GO -1430 

•960 DATA 0,-1 ,1,-1,1,, 1.1,, U-l.l.-l,,-! -1440 

,-1 MF .1450 

•970 REM INITIAL SPRITE POSITIONS JI -1460 

•980 REM ERROR HANDLING EF '1470 

•990 SL0W:P0KE53265,27:PRINTERR$(ER);" IN -1480 

LINE ";EL:END ED -1490 

•1000 DATA 162,112,162,164,142,127,206,12 -1500 

7 I J -1510 

•1010 REM REDEFINED CHARACTERS KD '1520 

•1020 BANK15:SUM=*0:F0RI=2816T02869:READJ: -1530 

SUM=SUM+J:P0KEI,J:NEXT:IFSUM<>7491THENPR -1540 

INT"ERR0R!":END:ELSESYS2816:P0KE2604,PEE *1550 

K(2604)AND2400R8 DA -1560 

•1030 READA:IFA=-1THENRETURN:ELSEF0RI=.T0 '1570 

7 : READB : P0KE8 192+A*8+I , B : NEXT : G0T01030 EL • 1580 

1040 DATA 169,, 133 ,250, 133, 252, 169 ,208 HJ -1590 

1050 DATA 133 , 25 1 , 169 , 32 , 133 , 253 , 169 , 252 HA • 1600 

1060 DATA 141,185,2,169,16,141,54,11 PA .1610 

1070 DATA 160,, 169, 250, 162, 14, 32, 116 AL -1620 

1080 DATA 255, 162,, 32, 119, 255, 200, 208 OJ -1630 

1090 DATA 241,206,54,11,240,7,230,251 DC '1640 

1100 DATA 230,253,76,26,11,96 U -1650 

1110 REM CHARACTER DATA JK -1660 

1120 DATA35, 60, 126, 219, 255, 255, 219, 102, 6 -1670 

FL • 1680 

1130 DATA36, 126, 102, 90 ,126, 60, 24, 24, 126 DK -1690 

1140 DATA37,,56,16,56,68,68,56,. KC -1700 

1150 DATA38,, 63, 67, 253, 133, 253, 182, 252 NF -1710 

1160 DATA167, 36, 129, 60, 126, 213, 126, 60, 24 IP -1720 

1170 DATA42,60,90,36,126,153,189,165,102OJ -1730 

1180 DATA91,, 249 ,249, 249, 249,, 19 1,191 GP -1740 

1190 DATA102,63,,,243,243,,,063 KN «1750 

1200 DATA1 55, 255, 128, 191, 128, 159,128,143 -1760 

,128 IN -1770 

1210 DATA157, 255, 1,253, 1,249, 1,241,1 CP -1780 



DATA168 , 135 , 128 , 131 , 128 , 129 , 128, 128 

DATA169, 225, 1,193, 1,129, 1,1, 255,-1 

REM SPRITE DATA 

DATA0,8,,,28,,,62 

DATA0,,8,,,8,,. 

DATA127,, 1,255, 192, 1,255, 192 

DATA3, 190, 224,3, 156,224,3, 255 

DATA224.3, 255,224,3, 190,224,1 

DATA193, 192, 1,255, 192,, 127,. 

DATAO,,,,,, 

DATAO,,,,,, 

DATAO,,,,,, 

DATA60,,,28,,,28,. 

DATA127, 36, 1,255, 192, 1,255, 192 

DATA3, 190,224,3, 156,224,3,255 

DATA224 , 3 , 255 , 224 , 3 , 190 , 224 , 1 

DATA193, 192, 1,255, 192,, 127,. 

DATAO,,,,, 

DATAO,,,,, 

DATAO,,,,, 

DATAO,,,,, 

DATA127,, 1,255, 192, 1,255, 192 

DATA3, 190, 228, 3, 156, 230, 3, 255 

DATA255,3,255,230,3,190,228,1 

DATA193, 192, 1,255, 192,, 127,. 

DATAO,,,. 

DATAO,,, 

DATAO,,, 

DATAO,,, 

DATA127, 



255,192,1,255,192 
DATA3, 190, 224, 3, 156, 224, 3, 255 
DATA224 , 3 , 255 , 224 , 3 , 190 , 224 , 1 
DATA193, 192, 1,255, 192,, 127, 36 
DATAO, ,28, ,,28,,. 
DATA60,,,, 
DATAO , , , , , 
DATAO,,,,, 

DATA127 , , 1 , 255 , 192 , 1 , 255 , 192 
DATA3, 190, 224, 3, 156, 224, 3, 255 
DATA224,3,255,224,3,190,224,1 
DATA193, 192, 1,255, 192,, 127,. 
DATAO, 8,,, 8,,, 62 
DATAO,, 28,,, 8,,. 
DATAO,,,,,,,. 
DATAO, ,,,,,,. 

DATA127,, 1,255, 192, 1,255, 192 
DATA3, 190, 224, 3, 156, 224, 3, 255 
DATA224,3,255, 224,3, 190,224,1 
DATA193, 192, 1,255, 192, 18, 127,. 
DATA28,,,28,,,30,. 
DATAO,,, 
DATAO,,, 
DATAO , , f 
DATA1 27 , , 1 , 255 , 192 , 1 , 255 , 192 
DATA19, 190, 224, 51, 156, 224, 127, 255 
DATA224, 5 1,255, 224, 19, 190, 224,1 
DATA193, 192, 1,255, 192, ,127,. 
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FN 
AE 
FF 
NF 
IA 
KP 
CF 
IH 
GK 
EG 
EA 
DC 
DL 
FK 
BF 
PH 
DK 
KG 
JA 
IC 
JM 
NI 
KK 
EC 
AK 
PG 
OA 
NC 
OM 
CI 
LF 
JH 
FE 
MP 
FG 
EP 
FJ 
MJ 
IK 
NA 
ND 
BF 
CH 
JP 
KJ 
NJ 
PK 
IA 
NB 
MH 
MN 
OP 
PJ 
GJ 
HJ 
MF 
HD 



•1790 DATAO, ,,,,,,, AD 

•1800 DATAO,,,,,,,. BK 

•1810 DATAO,,,,,, 30,. TO 

•1820 DATAO ,28,,, 28 ,,,18 BC 

•1830 DATA127,, 1,255, 192,1,255,192 KC 

■1840 DATA3, 190, 224, 3, 156, 224,3, 255 GP 

•1850 DATA224,3,255,224,3,190,224,1 PJ 

•1860 DATA193, 192, 1,255, 192, ,127,. GM 

•1870 DATAO,,,,,,,. HI 

•1880 DATAO,,,,,,,. GK 

•1890 DATAO,,,,,,,. GE 

•1900 DATAO ,,60,, ,90,,. EH 

•1910 DATA189,,,153,,,129,. ED 

•1920 DATAO, 129,,, 66,,, 36 OE 

•1930 DATAO, 4, 18,, 2, 9,, 3 MK 

•1940 DATA4,128,7,2,64,14,1,32 LP 

•1950 DATA15, 129,32,7,193,32,1,255 CF 

•1960 DATA32 ,,126,64 ,,63 ,128,. EI 

•1970 DATAO,,,,,,,. LE 

•1980 DATAO,, 30,,, 45,,. LI 

•1990 DATA94,128,,76,128,,64,128 HM 

•2000 DATAO.64,128,,33,,,18 JE 

•2010 DATAO ,64, 9,, 128 ,4, 128, 112 IL 

•2020 DATA4, 128, 24, 4, 128, 12, 4, 128 FP 

•2030 DATA28,4,128,15,12,128,7,255 BO 

•2040 DATA1 28, 1,255,,,,,. EN 

•2050 DATAO ,. CB 

•2060 DATAO, 16,,, 80,,, 80 AF 

•2070 DATAO, 8, 88 ,,26, 116, ,46 CI 

•2080 DATA82,60,74,89,255,154,95,255 NC 

•2090 DATA234,91,125,218,91,17,250,25 HK 

•2100 DATA255, 154,8, 127, 18,8,99, 18 BN 

•2110 DATA8,34,16,,20,16,,. OK 

•2120 DATAO,,,,,,,. IH 

•2130 DATAO,,,,,,,. HB 

•2140 DATAO, ,,8,,, 10, 16 CB 

•2150 DATAO, 10, 88,, 26, 116,, 46 PH 

•2160 DATA82,60,74,89,255,154,87,255 GH 

•2170 DATA250,91,190,218,95,136,218,89 JH 

•2180 DATA255,152,72,126,16,72,195,16 NE 

•2190 DATA8,129,16,8,66,, J . KG 

•2200 DATAO,,,,,,,. NH 

•2210 DATA3, 255,, 7, 255, 128, 13, 240 DH 

■ 2220 DATA64 , , 245 , 64 , , 240 , 70 , . DJ 

•2230 DATA240,73,,120,137,,125,153 GI 
•2240 DATA224, 25 5, 189, 153, 255, 254, 159, 255 BL 
•2250 DATA248, 159, 255, 240, 191, 255, 224, 255 HK 

•2260 DATA255,192,65,255,128,,255,192 PE 

•2270 DATAO, 127, 194, ,127, 195,, 63 LO 

•2280 DATA227,,7,255,,3,254,. EG 

•2290 DATA3, 255,, 7, 255, 128 ,13, 240 CH 

•2300 DATA64,,245,64,,240,64,64 IC 
•2310 DATA240,64,160,120,142,144,125,153 DM 
•2320 DATA152, 255, 185, 159, 255, 249, 191, 255 NC 
•2330 DATA253, 127,255,254,63,255,248,31 AO 

■2340 DATA255, 192, 1,255, 128,, 255, 192 LN 

•2350 DATAO, 127, 192,, 127, 196,, 63 MK 

•2360 DATA198,,15,254,,3,252,. LL 
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2370 DATAO,,,,,,,. 




GO 


2380 DATAO,,,,,,,. 




HI 


2390 DATAO,,, 8,,, 8,. 




MN 


2400 DATAO, 8,,, 8,, ,8 




PB 


2410 DATAO,, 8,,, 8,,. 




AB 


2420 DATA8,,,8,,,,. 




NJ 


2430 DATAO, ,,,,,,. 




IC 


2440 DATAO,, ,,,,,. 




JM 


2450 DATAO,,, 




LO 


2460 DATAO,,,,,,,, 




MI 


2470 DATAO,,,,,, 1,. 




NE 


2480 DATAO, 2, ,,4,, ,8 




CD 


2490 DATAO,, 16,,, 32,,. 




10 


2500 DATA64, 




AH 


2510 DATAO,,,,,,,. 




NC 


2520 DATAO ,,,,,,,. 




OM 


2530 DATAO,,,,,,,. 




AO 


2540 DATAO,,,,,,,. 




BI 


2550 DATAO ,,. 




AK 


2560 DATAO,,,,, ,1,255 




LE 


2570 DATA192,, ,,,,,. 




IC 


2580 DATAO,,,,,,,. 




CN 


2590 DATAO,, ,,,,,. 




EP 


2600 DATAO,,,,,,,. 




FJ 


2610 DATAO,,,,,,,. 




EL 


2620 DATAO,,,,,,,. 




EF 


2630 DATAO, ,,,,,64,. 




PO 


2640 DATAO, 32,,, 16,,, 8 




HN 


2650 DATAO,, 4,,, 2,,. 




MO 


2660 DATA1, ,,,,,,. 




HM 


2670 DATAO,,,,,,,. 




JP 


2680 DATAO,,,,,,,. 




KJ 


2690 DATAO,,,,,,,. 




JL 


2700 DATAO, ,,,,,,3 




JA 


2710 DATA255, 192, 1,255, 


128, ,231,. 


BH 


2720 DATAO, 129,,, 189,,, 


189 


CJ 


2730 DATAO,, 126,,, 60,,. 




NF 


2740 DATA24,,,24,,,24,. 




NC 


2750 DATAO, 126,, 1,255, 128,,. 


LH 


2760 DATAO,,,,,,,. 




PJ 


2770 DATAO,,,,,,,. 




OL 


2780 DATAO,,,,, 73, ,. 




HG 


2790 DATAO,,!,, 64, ,28,. 




BL 


2800 DATA1,62,64,,28,,, 


42 


FE 


2810 DATAO,, 65,,, 65,,. 




MH 


2820 DATA65,,,62,,,,. 




KB 


2830 DATAO,,,,,,,. 




BE 


2840 DATAO,,,,,,,, 




FG 


2850 DATAO,,,,,,,. 




EA 


2860 DATAO, ,,,,,,15 




GJ 


2870 DATA255,240,16,,72 


,36,146,136 


GG 


2880 DATA32,,136,36,66, 


152,32,160 


BI 


2890 DAT A 168, 63, 3 1,200, 


33,240,136,33 


MD 


2900 DATA1 76, 136,33, 24r 


1,1 44, 32,, 160 


IE 


2910 DATA63.255.192,,,, 


t • 


PL 


2920 DATAO, ,,,,,,. 




KG 


2930 DATAO, 144, 128 ,,73, 


,,144 


KE 


2940 DATA128..73,,,,,. 




GJ 



•2950 DATA127,, 1,255, 192, 1,255, 192 
•2960 DATA3, 156, 224, 3, 190,224,3,255 

• 2970 DATA224 , 3 , 255 , 224 , 3 , 193 , 224 , 1 
•2980 DATA190, 192, 1,255, 192,, 127,. 
•2990 DATAO,,,,,,,. 

•3000 DATAO,,,,,,,. 
•3010 REM INTERRUPT DATA 
•3020 DATA120, 169 , 25 , 141 , 20,3 
•3030 DATA169,12,141,21,3,173 
•3040 DAT A248, 17,133,251,169,1 

• 3050 DATA133 , 252 , 32 , 157 ,13,88 
•3060 DATA96, 173,242,17,240,3 

• 3070 DATA76 , 252 , 12, 198, 251 , 208 
•3080 DATA27, 173,248,17, 133,251 
•3090 DATA165,252,24, 109,243, 17 
•3100 DATA1 74, 249, 17, 157,249,7 
•3110 DATA202, 208, 250, 169, 1,56 
•3120 DATA229, 252, 133, 252, 173,0 
•3130 DATA220,162,0,41,15,133 
•3140 DATA253, 169, 15,56,229,253 
•3150 DATA201,4,208,19,222,214 
•3160 DATA17,208,11,169,1,77 
•3170 DATA230,17,141,230,17,222 
•3180 DATA214,17,76,252,12,201 
•3190 DATA8,208,19,254,214,17 

• 3200 DATA208 , 1 1 , 169 , 1 , 77 , 230 
•3210 DATA17 , 141 , 230, 17 , 254 ,214 
•3220 DATA17, 76,252, 12,201,1 
•3230 DATA208,7,232,222,214,17 
•3240 DATA 76, 252, 12, 201, 2, 208 
•3250 DATA7,232,254,214,17,76 
•3260 DATA252,12,201,5,208,23 
•3270 DATA222,214, 17,208, 11,169 
•3280 DATA1,77,230,17,141,230 
•3290 DATA17, 222, 214, 17,232,222 
•3300 DATA214, 17,76,252,12,201 
•3310 DATA6,208,23,222,214,17 
•3320 DATA208,U,169,1,77,230 

• 3330 DATA17 , 141 , 230, 17 , 222 ,214 
•3340 DATA17,232,254,214,17,76 
•3350 DATA252,12,201,9,208,23 
•3360 DATA254,214,17,208,11,169 
•3370 DATA1,77,230,17,141,230 
•3380 DATA17, 254,214, 17,232,222 
•3390 DATA214,17,76,252,12,201 

• 3400 DATA10,208, 21 , 254 , 214, 17 
•3410 DATA208.12, 138, 169,1,77 
•3420 DATA230,17,141,230,17,254 
•3430 DATA214, 17,232,254,214,17 
•3440 DATA162, 5, 142,244,17,173 
•3450 DATA244, 17,10,170,74,168 
•3460 DATA 185, 149, 13, 45, 230, 17 
•3470 DATA208,20,189,214,17,56 
•3480 DATA205,238,17,176,11,172 
•3490 DATA238, 17, 200, 152,157,214 
•3500 DATA17, 76, 117,13,138,74 
•3510 DATA168, 185, 149,13,45,230 
•3520 DATA17,240,32,189,214,17 



EG 


•3530 


OH 


•3540 


II 


•3550 


JJ 


•3560 


LE 


•3570 


PG 


•3580 


AH 


•3590 


NM 


•3600 


FB 


•3610 


BC 


•3620 


IM 


•3630 


NG 


•3640 


DH 


•3650 


MK 


•3660 


GN 


•3670 


KJ 


•3680 


BE 


•3690 


EO 


•3700 


KP 


•3710 


AL 


•3720 


CN 


•3730 


CL 


•3740 


AH 


• 3750 


EE 


• 3760 


AE 


•3770 


JE 


• 3780 


PG 


• 3790 


OH 


• 3800 


JM 


•3810 


BG 


• 3820 


AB 


■ 3830 


EP 


• 3840 


LI 


• 3850 


OF 


• 3860 


AP 


• 3870 


LM 


• 3880 


DI 


• 3890 


GM 


•3900 


MA 


•3910 


IA 


•3920 


PI 


• 3930 


AE 


• 3940 


MK 


• 3950 


JF 


•3960 


FH 


•3970 


GE 


• 3980 


DJ 


• 3990 


NJ 


•4000 


HE 


•4010 


AE 


•4020 


MH 


•4030 


KA 


•4040 


FA 


•4050 


JE 


•4060 


FG 


•4070 


AC 


•4080 


MN 


•4090 


FE 


•4100 



DATA56 , 205 , 239 , 17 , 144 , 23 

DATA172,239,17,136,152,157 

DATA214,17,173,244,17,201 

DATA1,208,8,169,253,45 

DATA21 , 208 ,141,21, 208 , 232 

DATA 189, 214, 17,56, 205,240 

DATA17,176,11,172,240,17 

DAT A200, 152, 157, 214, 17, 76 

DATA117,13,189,214,17,56 

DATA205,241,17,144,23,172 

DATA241,17,136,152,157,214 

DATA17, 173,244,17,201,1 

DATA208,8,169,253,45,21 

DATA208,141,21,208,206,244 

DATA17,48,3,76,1,13 

DATA32 , 196 , 13 , 238, 46 , 208 

DATA76,101,250,1,2,4 

DATA8,16,32,64,128,162 

DATA24, 169,0, 157,0, 212 

DATA202, 16,250, 169, 240, 141 

DATA20,212,169,65,141,18 

DATA212,169,15,141,24,212 

DATA1 69, 0,14 1,246, 17, 169 

DATA50,141,17,212,141,16 

DATA2 12, 96, 206, 245, 17, 208 

DATA53,169,12,141,245,17 

DATA173.246, 17,174,247, 17 

DATA56,221,11,14,144,5 

DATA169, 0,141, 246, 17, 174 

DATA247, 17, 189, 14, 14,133 

DATA254, 189,17, 14,133,255 

DATA172,246,17, 177,254, 141 

DATA15,212,200,177,254,141 

DATA14 , 212, 200, 140, 246, 17 

DATA173,245,17,24,105,150 

DATA141,17,212,141,10,212 

DATA96,80,44,48,20,100 

DATA144,14,14,14,19,239 

DATA18,209,19,239,18,209 

DATA18,209,19,239,18,209 

DATA18, 209,29, 223, 29, 223 

DATA28,49,25,30,25,30 

DATA22,96,19,239,19,239 

DATA18,209,16, 195,16, 195 

DATA18, 209, 16, 195,16,195 

DATA18,209,16,195,16,195 

DATA18,209,16,195,16,195 

DATA28, 29, 28,49, 25,30 

DATA23, 181,23,181,19,239 

DATA18,209,18,209,16,195 

DATA25,30,25,30,18,209 

DATA7, 112, 7, 119,7,119 

DATA4, 180,4,251,4,251 

DATA5, 152,5,237, 5,237 

DATA6,71,6,167,6,167 

DATA7,112,7,112,7,119 

DATA4,251,5,237,4,180 

DATA7,112,5,152,5,237 



GE 

EA 

HD 

FB 

LJ 

CH 

GH 

GG 

IG 

DF 

KH 

MH 

IG 

PB 

JH 

PJ 

CO 

GI 

10 

GE 

10 

JP 

FD 

HM 

LI 

HH 

LJ 

PD 

GJ 

CL 

DA 

NH 

OC 

AD 

CG 

JH 

EN 

GF 

CO 

MI 

AM 

GF 

MI 

DG 

FI 

OK 

PM 

HC 

CK 

EK 

PF 

ND 

JP 

IB 

FO 

JI 

OA 

KG 



AHOY! 97 



•4110 DATA7 ,119,25,30, 21, 31 

•4120 DATA18,209,25,30,21,31 

•4130 DATA18,209,25,30,21,31 

•4140 DATA18, 209, 25,30,21 ,31 



0G *4150 DATA18,209,25,30,28,49 

GN -4160 DATA29, 223,28,49, 22,96 

NP -4170 DATA28, 49, 18,209,25, 30 

JB -4180 DATA21,31,18,2O9,25,30,25,30 



T IPSAHOY I 

nl i zi5[ 



Continued from page 52 

It's super easy to check the bytes free, and you can do 
it as often as you like. With the cursor resting on a blank 
line, press the back arrow key ( — ), then press RE- 
TURN. Bingo, . .there they arc. —Buck Childress 

Salem. OR 

•10 PRINTCHR$( 147) "LOADING DATA" ; : F0RJ=70 
0T0753 : READA : IFA<OORA>255THEN30 
•20 POKEJ, A :X=X+A: PRINT". "; :NEXTJ: PRINT: P 
RINT:IFX-5958THEN40 
•30 PRINT"ERROR IN DATA[3"."]":END 
•40 PRINT"THE DATA IS LOADED,": PRINT 
•50 PRINT"SYS 700 TO ACTIVATE AND DEACTIV 
ATE[3"."]":END 

•60 DATA169, 208, 162, 2, 236, 1,3, 208, 4, 169,1 
39,162 

•70 DATA227, 141, 0,3, 142, 1,3, 96, 173, 0,2, 20 

1 
•80 DATA95, 240, 3, 76, 139, 227, 206,0,2, 164, 5 

2,165 
•90 DATA51, 56, 229, 49, 176, 1,136, 170, 152, 56 

,229,50 
•100 DATA32.205, 189,76,116, 164 

C-128 CENTER AND RIGHT JUSTIFY 

You're probably feeling gypped out of a good command 
if you've tried to use the C-128's PRINT USING command 
to center strings on the screen. The documentation includ- 
ed with the System Guide is incorrect, depriving you of 
the use of a much needed command. 

You'll have to define a control string, FS, with 40 amper- 
sands to properly control this command, and suffix it with 
the appropriate control character, either "=" for centering 
or ">" for right justification. The control string lets the 
BASIC interpreter know what size of field you want your 
string to be centered in, and by changing the size of FS 
you can also format text inside windows. 

I am currently working on a quality word processor in 



BASIC 7.0, and encountered a great deal of frustration be- 
fore 1 Figured out through trial and error how this com- 
mand worked. It was enormously useful in formatting text 
on the screen from the word processor. — Cleve Blakemore 

Richmond, VA 



•10 REM USE "=" TO CENTER STRING 

•20 REM USE ">" TO RIGHT JUSTIFY 

■30 PRINTCHR$(147) 

•40 FORX=1T039:F$=F$+"#":NEXT 

•50 A$="CENTERED STRING" 

•60 PRINTUSINGF$+"=";A$ 

•70 A$="RIGHT JUSTIFIED" 

•80 PRINTUSINGF$+">";A$ 

•90 A$="LEFT JUSTIFIED" 

•100 PRINT" [ UP]" ;A$ 

BRANCH CALC 

The BASIC language of the Commodore 64 is reason- 
ably good. But there is still room for improvement. For 
example, if you've seen BASIC programs for other languag- 
es that offer calculated GOTOs and GOSUBs, chances are 
the program was much easier to understand. A GOSUB 
DRAWSCREEN is definitely preferable to GOSUB 13491. 
The 64 will possess this ability when you load and run 
Branch Calc. 

Lines 120 and 130 transfer Kernal and BASIC ROM (O 
RAM and protect it against RUN STOP/RESTORE. Since 
this takes some time, it you've already used a program that 
does this, RUN 140 to speed things up. — Shawn K. Smith 

Bronx, NY 

•100 REM* BRANCH CALC SHAWN K. SMITH 

•110 REM "CALCULATED GOTOS AND GOSUBS" 

• 120 B=40960: K= 57344 : F0RD=0T081 91 : POKEB+D 
,PEEK(B+D):P0KEK+D, PEEK (K+D): NEXT 

•130 P0KE1,53:P0KE64982,53 

• 140 S=48981 : F0RD=ST0S+6 : READY : POKED , Y 
•150 NEXT:H=INT(S/256):P0KE43170,H 
•160 P0KE43169,S-H*256:D=21:LOOP=180 
•170 DATA 032,138,173,076,247,183,234 
■180 D=D-1:PRINT"0K!":IFDTHEN GOTO LOOP 
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DATA EAST BRINGS 
ARCADE REALISM HOME! 
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I XPRLSSRAmtM" - liandits have seiled the 
Gold Cily Ivxprev,. Rescue Ihi" passengers, i*,ive the 
train, .mil recapture the loot! For Commodore 
M/12H:" 

TAG Ti:AM WHISTLING" - Team wort and 
shituina are the bvs, as you and your partner 
battle your way through the Title Matches 911 your 
quest for the belt. For Commodore (Al I2M '", Apple 
II' series, jnd IliM. 

KUNG-FU MASTER 1 ■ - Bailie I he evil hWvs 
through the live dangerous floors io llie wi bird's 
cattle Io rescue lite captive, fair maiden, hir Com- 
modore 64/1 2tT pud Ap- 1 '— 



partner battle Buuugh Ihelunales, rivers, ruins* 
.tod npimsiuu. entrenchments in this interactive 
2-pLivcr aiv.tdchil. For Commodore 64 I2H!" 

mil AhlllKH"* - Your mission is to retrieve the 
secret i ighier plane stolen by hostile renegades. 
L'se your sop his lie.] ted ass.iull vehicle Io lireak 
I hro e.uhol I fie live enemy Strongholds, For 
t "umiiiodore ii-l I2S" 



1 DATA EAST USA, INC. !7n NFLt HIS DRIVE, SAN JOSE, CALIFORNIA %l 12. (4IW) 2Hh-7tir4, 
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Render Service No. 141 





ECHELON 





3D SPACE FLIGHT SIMULATOR 



ECHELON ... A top secret military facility where a 
few highly skilled pilots will be trained to operate thu 
21st Century's most awesome combat and 
exploration vehicle, the Lockheed C-1 04 Tomahawk. 
The C-1 04 spacecraft has the latest in advanced 
Instrumentation, weaponry, and control systems. 

ACTUAL C-S4 SCREENS 



,"l ''^-' * ' 



IT'S IMPRESSIVE ATTRIBUTES INCLUDE 



ECHELON b a true 3-D space mgM simulator thai puts you It the 
controls ol the C-1M Tomahawk and in the heart ol the action. You'll 
experience the excitement and thrill of real spacellight through 
superb three dimensional graphics. But, betore you go exploring on 
your own, it would be wise to go through the car dully designed 
training simulators. These rigorous courses will develop your skills In 
manuevering the spacecraft, accurate selection and use ol weapons, 
control ot HPV's. ohjed retrieval and rebel and docking procedures. 
Developing these skills are essential to your survival when 
encountering hostile enemy spacecraft or exploring unknown terrain. 



- 4 Ditferenl "State of the Art" Weapons Systems ECHEL0N b matollle n <™ and ^^ ¥0U the Simulation Adventure 




- Bi-Diiecttonal Transporter Unit ■ a ut 

- Unmanned RPV (Remote Piloted Vehicle} Control 

- Anti-Gravity Braking and Hovering 

- Forward and Reverse Thrusters 

- Twin 3-D Screens 

- Real-Time Infra red Vector Graphics 

- Non Real-Time Computer Enhanced Graphics 



- Computer Information Data Link 

- On Board Sub- Atomic Analyzer/ Decoder 



ol a Lifetime for only $39.95!! 



I 



Available Now For C-64/128. 

Enhanced versions corning soon tor APPLE, IBM, AMIGA, ATARI ST, 

and COMMODORE 12a. 
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II yog can't find our products at your local dealer, you can order 
dared. For mail orders, enclose check or money order, plus 
SI .00 shipping and handling, and specify machine version 
deslrod. Order by phone on VISA, MasterCard or C.O.D. by 
calling TOLL FREE (800) 624-2519. 
ftCCfSS SOFTMflE. INC. 1f&\ So. 1560 w. WOOd CtBI. UI MOST 



